Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.38.2.2 -r1.38.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	21 Jul 2004 22:37:18 -0000	1.38.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	26 Jul 2004 23:57:01 -0000	1.38.2.3
@@ -132,7 +132,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
+          acs_objects o where o.object_id = :item_id
         </querytext>
     </fullquery>
 
@@ -173,6 +173,25 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="fs::delete_version.delete_version">      
+      <querytext>
+
+	select file_storage__delete_version(
+			:item_id,
+			:version_id
+			);
+      </querytext>
+  </fullquery>
+
+   <fullquery name="fs::delete_file.delete_file">      
+      <querytext>
+
+	select file_storage__delete_file(
+			:item_id
+			);
+      </querytext>
+  </fullquery>
+
   <fullquery name="fs::add_version.update_last_modified">
     <querytext>
       begin