Index: openacs-4/packages/cms/www/modules/items/revision-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/revision-upload.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/revision-upload.tcl	25 May 2001 02:15:56 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/revision-upload.tcl	26 May 2001 19:45:03 -0000	1.4
@@ -97,7 +97,7 @@
 
           ns_log Notice "revision-upload.tcl - Creating content item... $name"
           set item_id [db_exec_plsql new_content "begin 
-      :item_id := content_item.new(
+      :1 := content_item.new(
           name          => :name, 
           parent_id     => :parent_id, 
           content_type  => :content_type,
@@ -112,11 +112,11 @@
       set tmp_filename [ns_queryget xml_file.tmpfile]
       set doc [template::util::read_file $tmp_filename]
 
-      db_clob_dml insert_content "insert into cr_xml_docs 
-  values ($revision_id, empty_clob()) returning doc into :1" $doc
+      db_dml insert_content "insert into cr_xml_docs 
+  values ($revision_id, empty_clob()) returning doc into :1" -clobs $doc
 
       set revision_id [db_exec_plsql import_xml "begin
-    :revision_id := content_revision.import_xml(
+    :1 := content_revision.import_xml(
       :item_id, :revision_id, :revision_id);
   end;"]