Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	20 Apr 2004 21:13:40 -0000	1.26
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	17 May 2004 15:15:14 -0000	1.27
@@ -162,14 +162,16 @@
 
   <fullquery name="fs::add_file.create_item">
     <querytext>
-      select file_storage.new_file (
-          :name,
-          :parent_id,
-	  :creation_user,
-          :creation_ip,
-          :indbp,
-          :item_id
-      )
+      	begin 
+          :1 := file_storage.new_file (
+                  folder_id => :parent_id,
+                  title => :name,
+		  creation_user => :creation_user,
+		  creation_ip => :creation_ip,
+		  item_id => :item_id,
+		  indb_p => 't'
+               );
+	end;
     </querytext>
   </fullquery>