Index: openacs-4/packages/rss-support/www/delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete-2.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/rss-support/www/delete-2.tcl 14 Jun 2015 00:42:13 -0000 1.5 +++ openacs-4/packages/rss-support/www/delete-2.tcl 7 Aug 2017 23:48:29 -0000 1.6 @@ -2,16 +2,22 @@ Delete the subscription, and maybe the report. } { subscr_id:notnull,naturalnum - return_url:notnull + return_url:localurl,notnull delete_file_p:boolean,optional } permission::require_permission -object_id $subscr_id -privilege admin if {[info exists delete_file_p]} { - file delete [rss_gen_report_file -subscr_id $subscr_id] + file delete -- [rss_gen_report_file -subscr_id $subscr_id] } db_exec_plsql delete_subscr {} ad_returnredirect $return_url + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: