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.25.2.1 -r1.25.2.2 --- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 2 Apr 2004 04:04:47 -0000 1.25.2.1 +++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 23 Apr 2004 00:24:57 -0000 1.25.2.2 @@ -162,14 +162,16 @@ - 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;