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 -r1.3 -r1.4
--- openacs-4/packages/rss-support/www/delete-2.tcl	30 Mar 2013 19:07:24 -0000	1.3
+++ openacs-4/packages/rss-support/www/delete-2.tcl	27 Oct 2014 16:41:53 -0000	1.4
@@ -6,9 +6,9 @@
     delete_file_p:optional
 }
 
-ad_require_permission $subscr_id admin
+permission::require_permission -object_id $subscr_id -privilege admin
 
-if [info exists delete_file_p] {
+if {[info exists delete_file_p]} {
     file delete [rss_gen_report_file -subscr_id $subscr_id]
 }