Index: openacs-4/packages/file-storage/www/file-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-delete.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/file-storage/www/file-delete.tcl	22 Sep 2001 05:47:09 -0000	1.3
+++ openacs-4/packages/file-storage/www/file-delete.tcl	5 Sep 2002 09:29:00 -0000	1.4
@@ -17,7 +17,7 @@
     file_id:onevalue
     file_name:onevalue
     blocked_p:onevalue
-    context_bar:onevalue
+    context:onevalue
 }
 
 # check for delete permission on the file
@@ -55,7 +55,7 @@
     	from   cr_items
     	where  item_id = :file_id"
 
-    set context_bar [fs_context_bar_list -final "Delete" $file_id]
+    set context [fs_context_bar_list -final "Delete" $file_id]
 
     ad_return_template
 }
\ No newline at end of file