Index: openacs.org-dev/packages/file-storage/www/version-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/file-storage/www/version-delete.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/file-storage/www/version-delete.tcl	9 Jul 2002 17:35:09 -0000	1.1.1.1
+++ openacs.org-dev/packages/file-storage/www/version-delete.tcl	8 Oct 2002 15:47:12 -0000	1.1.1.2
@@ -17,7 +17,7 @@
     version_id:onevalue
     version_name:onevalue
     title:onevalue
-    context_bar:onevalue
+    context:onevalue
 }
 
 # check for delete permission on the version
@@ -50,11 +50,14 @@
 	 # Redirect to the folder, instead of the latest revision (which does not exist anymore)
 	 ad_returnredirect "index?folder_id=$parent_id"
 
+         ad_script_abort
+
     } else {
 
 	 # Ok, we don't have to do anything fancy, just redirect to th last revision
 	 ad_returnredirect "file?file_id=$item_id"
-
+         
+         ad_script_abort
     }
 
 } else {
@@ -66,6 +69,5 @@
     where i.item_id = r.item_id
     and revision_id = :version_id"
 
-    set context_bar [fs_context_bar_list -final "Delete Version" $item_id]
-    ad_return_template
+    set context [fs_context_bar_list -final "Delete Version" $item_id]
 }