Index: openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl,v
diff -u -N -r1.4.20.1 -r1.4.20.2
--- openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	29 Jul 2014 11:37:28 -0000	1.4.20.1
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-delete.tcl	3 Sep 2014 12:30:01 -0000	1.4.20.2
@@ -6,6 +6,7 @@
     @cvs-id $Id$
 } {
     node_id:naturalnum,multiple
+    {return_url .}
     {confirm_p 0}
 }
 
@@ -19,7 +20,7 @@
 
     set page_title "Delete [ad_decode $num 1 "Application" "Applications"]"
     set context [list [list "." "Applications"] $page_title]
-    set yes_url [export_vars -base [ad_conn url] { node_id:multiple { confirm_p 1 } }]
+    set yes_url [export_vars -base [ad_conn url] { node_id:multiple return_url { confirm_p 1 } }]
     set no_url "."
 
     return
@@ -48,12 +49,11 @@
     }
 } on_error {
     set error_p 1
-    global errorInfo
-    ns_log Error "Error deleting package with package_id $id: $errmsg\n$errorInfo"
+    ns_log Error "Error deleting package with package_id $id: $errmsg\n$::errorInfo"
     # Hm. Not sure what to do. For now, let's rethrow the error.
-    error $errmsg $errorInfo
+    error $errmsg $::errorInfo
 }
      
-ad_returnredirect .
+ad_returnredirect $return_url