Index: openacs-4/packages/file-storage/www/folder-delete-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-delete-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/folder-delete-oracle.xql	13 Aug 2001 03:20:01 -0000	1.1
+++ openacs-4/packages/file-storage/www/folder-delete-oracle.xql	25 Sep 2001 16:53:45 -0000	1.2
@@ -7,7 +7,7 @@
       <querytext>
       
     begin
-        content_folder.delete(:folder_id);
+        file_storage.delete_folder(:folder_id);
     end;
 
       </querytext>
Index: openacs-4/packages/file-storage/www/folder-delete-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-delete-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/folder-delete-postgresql.xql	13 Aug 2001 03:19:41 -0000	1.1
+++ openacs-4/packages/file-storage/www/folder-delete-postgresql.xql	25 Sep 2001 16:53:57 -0000	1.2
@@ -6,7 +6,7 @@
 <fullquery name="folder_delete">      
       <querytext>
 
-        select content_folder__delete(:folder_id);
+        select file_storage__delete_folder(:folder_id);
 
       </querytext>
 </fullquery>
Index: openacs-4/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/folder-delete.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/file-storage/www/folder-delete.tcl	25 Sep 2001 16:54:29 -0000	1.2
@@ -51,10 +51,10 @@
 
     db_exec_plsql folder_delete "
     begin
-        content_folder.delete(:folder_id);
+        file_storage.delete_folder(:folder_id);
     end;"
 
-    ad_returnredirect "?folder_id=$parent_id"
+    ad_returnredirect "index?folder_id=$parent_id"
 
 } else {
     # they still need to confirm