Index: openacs-4/packages/rss-support/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/rss-support/www/delete.tcl	27 Oct 2014 16:41:53 -0000	1.6
+++ openacs-4/packages/rss-support/www/delete.tcl	7 Aug 2017 23:48:29 -0000	1.7
@@ -2,7 +2,7 @@
     Confirm deletion of a subscription.
 } {
     subscr_id:notnull,naturalnum
-    return_url:notnull
+    return_url:localurl,notnull
 }
 
 permission::require_permission -object_id $subscr_id -privilege admin
@@ -15,9 +15,17 @@
 
 set context [list Delete]
 
-if [file exists [rss_gen_report_file -subscr_id $subscr_id]] {
+if {[file exists [rss_gen_report_file -subscr_id $subscr_id]]} {
     set offer_file 1
     set report_url [rss_gen_report_file -subscr_id $subscr_id]
 } else {
     set offer_file 0
 }
+
+template::add_event_listener -id "cancel" -script {history.back();}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: