Index: openacs-4/packages/static-portlet/static-portlet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/static-portlet.info,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/static-portlet/static-portlet.info 5 May 2003 09:22:34 -0000 1.8.2.1
+++ openacs-4/packages/static-portlet/static-portlet.info 30 Jul 2003 22:16:01 -0000 1.8.2.2
@@ -7,15 +7,15 @@
f
f
-
+
oracle
postgresql
Arjun Sanyal
OpenForce, Inc.
-
+
Index: openacs-4/packages/static-portlet/sql/oracle/static-core.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/oracle/static-core.sql,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/static-portlet/sql/oracle/static-core.sql 9 Aug 2002 18:39:33 -0000 1.6
+++ openacs-4/packages/static-portlet/sql/oracle/static-core.sql 30 Jul 2003 22:16:01 -0000 1.6.2.1
@@ -37,7 +37,7 @@
pretty_name varchar2(100)
constraint static_p_c_pretty_name_nn
not null,
- content varchar2(4000)
+ body clob
);
@@ -61,12 +61,15 @@
-- API
--
+-- content is still a varchar, even though it is being used to put content
+-- into body, a clob, because a varchar is what's being passed in from the
+-- Tcl script.
create or replace package static_portal_content_item
as
function new (
package_id in static_portal_content.package_id%TYPE default null,
pretty_name in static_portal_content.pretty_name%TYPE default null,
- content in static_portal_content.content%TYPE default null,
+ content in varchar default null,
object_type in acs_objects.object_type%TYPE default 'static_portal_content',
creation_date in acs_objects.creation_date%TYPE default sysdate,
creation_user in acs_objects.creation_user%TYPE default null,
@@ -87,7 +90,7 @@
function new (
package_id in static_portal_content.package_id%TYPE default null,
pretty_name in static_portal_content.pretty_name%TYPE default null,
- content in static_portal_content.content%TYPE default null,
+ content in varchar default null,
object_type in acs_objects.object_type%TYPE default 'static_portal_content',
creation_date in acs_objects.creation_date%TYPE default sysdate,
creation_user in acs_objects.creation_user%TYPE default null,
@@ -106,7 +109,7 @@
);
insert into static_portal_content
- (content_id, package_id, pretty_name, content)
+ (content_id, package_id, pretty_name, body)
values
(v_content_id, new.package_id, new.pretty_name, new.content);
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/static-portlet/sql/oracle/upgrade/upgrade-0.1a-1.0.sql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/static-portlet/sql/postgresql/static-core.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/sql/postgresql/static-core.sql,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/static-portlet/sql/postgresql/static-core.sql 2 Mar 2003 22:40:20 -0000 1.3.2.1
+++ openacs-4/packages/static-portlet/sql/postgresql/static-core.sql 30 Jul 2003 22:16:02 -0000 1.3.2.2
@@ -70,7 +70,7 @@
pretty_name varchar(100)
constraint static_p_c_pretty_name_nn
not null,
- content varchar(4000)
+ body text
);
@@ -79,6 +79,10 @@
-- API
--
+-- content is still a varchar, even though it is being used to put content
+-- into body, a clob, because a varchar is what's being passed in from the
+-- Tcl script.
+
create function static_portal_content_item__new (integer, varchar, varchar)
returns integer as '
declare
@@ -139,7 +143,7 @@
insert
into static_portal_content
- (content_id, package_id, pretty_name, content)
+ (content_id, package_id, pretty_name, body)
values
(v_content_id, p_package_id, p_pretty_name, p_content);
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/static-portlet/sql/postgresql/upgrade/upgrade-0.1a-1.0.sql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl,v
diff -u -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl 17 Oct 2002 09:39:47 -0000 1.14.2.1
+++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl 30 Jul 2003 22:16:02 -0000 1.14.2.2
@@ -205,11 +205,7 @@
} {
Get the content of the item
} {
- return [db_string get_content.select {
- select content
- from static_portal_content
- where content_id = :content_id
- }]
+ return [db_string get_content.select {)]
}
ad_proc -public get_package_id {
Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.xql 23 Jul 2002 13:40:45 -0000 1.2
+++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.xql 30 Jul 2003 22:16:02 -0000 1.2.2.1
@@ -24,7 +24,7 @@
update static_portal_content set
- content = :content, pretty_name = :pretty_name
+ body = :content, pretty_name = :pretty_name
where content_id = :content_id
@@ -45,4 +45,12 @@
+
+
+ select body
+ from static_portal_content
+ where content_id = :content_id
+
+
+
Index: openacs-4/packages/static-portlet/www/element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/element.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/static-portlet/www/element.tcl 17 Oct 2002 09:39:47 -0000 1.7.2.1
+++ openacs-4/packages/static-portlet/www/element.tcl 30 Jul 2003 22:16:02 -0000 1.7.2.2
@@ -31,7 +31,7 @@
set element_pretty_name [ad_parameter static_admin_portlet_element_pretty_name static-portlet]
db_1row get_content_element {
- select content, pretty_name
+ select body as content, pretty_name
from static_portal_content
where content_id = :content_id
}
Index: openacs-4/packages/static-portlet/www/static-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/static-portlet.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/static-portlet/www/static-portlet.tcl 9 Aug 2002 18:39:33 -0000 1.6
+++ openacs-4/packages/static-portlet/www/static-portlet.tcl 30 Jul 2003 22:16:02 -0000 1.6.2.1
@@ -30,7 +30,7 @@
set success_p 0
set success_p [db_0or1row select_content {
- select content, pretty_name
+ select body as content, pretty_name
from static_portal_content
where content_id = :content_id
}]