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