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.3 -r1.38.2.4
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	26 Jul 2004 23:57:01 -0000	1.38.2.3
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	9 Aug 2004 21:48:37 -0000	1.38.2.4
@@ -192,6 +192,15 @@
       </querytext>
   </fullquery>
 
+  <fullquery name="fs::delete_folder.delete_folder">
+     <querytext>
+        select file_storage__delete_folder (
+                       :folder_id,
+                       :cascade_p
+                       )
+     </querytext>
+  </fullquery>
+  
   <fullquery name="fs::add_version.update_last_modified">
     <querytext>
       begin