Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	13 Jan 2005 13:57:28 -0000	1.5
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs-oracle.xql	8 Aug 2006 21:26:35 -0000	1.6
@@ -5,15 +5,14 @@
 
     <fullquery name="dotlrn_fs::copy_fs_object.copy_file">
         <querytext>
-                declare
-                begin
-                :1 := file_storage.copy_file (
+          begin
+            :1 := file_storage.copy_file (
                     file_id => :object_id,
                     target_folder_id => :target_folder_id,
-                    creation_user => :user_id,
+                    creation_user => :user_id, 
                     creation_ip => null
                 );
-                end; 
+          end;
         </querytext>
     </fullquery>
 
@@ -25,4 +24,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_fs::remove_user.delete_folder">
+        <querytext>
+         begin
+            file_storage.delete_folder(:desired_folder_id,'f');
+         end;
+        </querytext>
+    </fullquery>
+
 </queryset>