Index: openacs.org-dev/packages/file-storage/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/file-storage/www/folder-delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/file-storage/www/folder-delete.tcl	9 Jul 2002 17:35:08 -0000	1.1.1.1
+++ openacs.org-dev/packages/file-storage/www/folder-delete.tcl	8 Oct 2002 15:47:12 -0000	1.1.1.2
@@ -31,7 +31,7 @@
     folder_id:onevalue
     folder_name:onevalue
     blocked_p:onevalue
-    context_bar:onevalue
+    context:onevalue
 }
 
 # check for delete permission on the folder
@@ -56,14 +56,14 @@
 
     ad_returnredirect "index?folder_id=$parent_id"
 
+    ad_script_abort
+
 } else {
     # they still need to confirm
 
     set folder_name [db_string folder_name "
     select label from cr_folders where folder_id = :folder_id"]
 
-    set context_bar [fs_context_bar_list -final "Delete" $folder_id]
+    set context [fs_context_bar_list -final "Delete" $folder_id]
 
-    ad_return_template
-
 }
\ No newline at end of file