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.5 -r1.6
--- openacs-4/packages/rss-support/www/delete.tcl	17 May 2003 11:23:29 -0000	1.5
+++ openacs-4/packages/rss-support/www/delete.tcl	27 Oct 2014 16:41:53 -0000	1.6
@@ -5,11 +5,11 @@
     return_url:notnull
 }
 
-ad_require_permission $subscr_id admin
+permission::require_permission -object_id $subscr_id -privilege admin
 
 db_1row subscr_info {}
 
-if [string equal $channel_title ""] {
+if {$channel_title eq ""} {
     set channel_title "Summary Context $summary_context_id"
 }