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.5 -r1.25.2.6
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	21 Jul 2004 22:37:18 -0000	1.25.2.5
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	26 Jul 2004 23:57:01 -0000	1.25.2.6
@@ -145,7 +145,7 @@
    <fullquery name="fs::do_notifications.get_owner_name">
         <querytext>
 	  select person.name(o.creation_user) as owner
-		 from acs_objects o where o.object_id = :file_id
+		 from acs_objects o where o.object_id = :item_id
         </querytext>
     </fullquery>
 
@@ -191,6 +191,31 @@
     </querytext>
   </fullquery>
 
+<fullquery name="fs::delete_version::delete_version">      
+      <querytext>
+
+	begin
+	   :1 := file_storage.delete_version(
+			:item_id,
+			:version_id
+			);
+	end;
+
+      </querytext>
+</fullquery>
+
+<fullquery name="fs::delete_file.delete_file">      
+      <querytext>
+	
+	begin
+		file_storage.delete_file(
+			:item_id
+			);
+	end;
+
+      </querytext>
+</fullquery>
+
   <fullquery name="fs::add_version.update_last_modified">
     <querytext>
       begin