Index: openacs-4/packages/cms/tcl/form-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs-oracle.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/form-procs-oracle.xql 29 Jul 2001 17:26:29 -0000 1.4
+++ openacs-4/packages/cms/tcl/form-procs-oracle.xql 29 Jul 2001 23:44:43 -0000 1.5
@@ -304,49 +304,101 @@
begin :revision_id := content_revision.new(
title => :title
-
-
, description => :description
-
-
, publish_date => :publish_date
-
-
, mime_type => :mime_type
-
-
, nls_language => :nls_language
-
-
, text => :text
+
+
+
+
+ , description => null
+
+
+ , publish_date => sysdate
+
+
+
+
+ , mime_type => 'text/plain'
+
+
+
+
+
+ , nls_language => null
+
+
+
+
+
+ , text => ' '
+
+
+
+
+
+ , item_id => content_symlink.resolve(:item_id),
+ revision_id => :revision_id,
+ creation_date => sysdate,
+ creation_ip => :creation_ip,
+ creation_user => :creation_user
+ ); end;
+
+
+
+
+
+
+ update cr_revisions
+ set content = empty_blob() where revision_id = :revision_id
+ returning content into :1
+
+
+
+
+
+
+
+ begin
+ content_revision.content_copy (
+ revision_id => :revision_id_src,
+ revision_id_dest => :revision_id_dest
+ );
+ end;
+
+
+
+
\ No newline at end of file