Index: openacs-4/packages/cms/tcl/form-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/form-procs-postgresql.xql 29 Jul 2001 17:26:29 -0000 1.4
+++ openacs-4/packages/cms/tcl/form-procs-postgresql.xql 29 Jul 2001 23:44:43 -0000 1.5
@@ -189,7 +189,8 @@
update cr_revisions
- set content = empty_lob() where revision_id = :revision_id
+ set content = [set __lob_id [db_string get_id "select empty_lob()"]]
+ where revision_id = :revision_id
@@ -304,4 +305,88 @@
+
+
+ , :description
+
+
+
+
+
+ , :publish_date
+
+
+
+
+
+ , :mime_type
+
+
+
+
+
+ , :nls_language
+
+
+
+
+
+ , :text
+
+
+
+
+
+ , null
+
+
+
+
+
+ , now()
+
+
+
+
+
+ , 'text/plain'
+
+
+
+
+
+ , null
+
+
+
+
+
+ , ' '
+
+
+
+
+
+ , content_symlink__resolve(:item_id), :revision_id, now(), :creation_ip, :creation_user) as revision_id
+
+
+
+
+
+
+ update cr_revisions
+ set content = [set __lob_id [db_string get_id "select empty_lob()"]]
+ where revision_id = :revision_id
+
+
+
+
+
+
+
+ select content_revision__content_copy (:revision_id_src, :revision_id_dest)
+
+
+
+