Index: openacs-4/packages/rss-support/www/subscr-ae-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscr-ae-2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/rss-support/www/subscr-ae-2.tcl	17 May 2003 11:23:29 -0000	1.4
+++ openacs-4/packages/rss-support/www/subscr-ae-2.tcl	27 Oct 2014 16:41:54 -0000	1.5
@@ -11,30 +11,30 @@
 }
 
 switch $timeout_units {
-    m { set timeout [expr $timeout * 60] }
-    h { set timeout [expr $timeout * 3600] }
-    d { set timeout [expr $timeout * 86400] }
+    m { set timeout [expr {$timeout * 60}] }
+    h { set timeout [expr {$timeout * 3600}] }
+    d { set timeout [expr {$timeout * 86400}] }
 }
 
-if [db_0or1row subscr_exists_p {
+if {[db_0or1row subscr_exists_p {
     select 1
     from acs_objects
     where object_id = :subscr_id
-}] {
+}]} {
     # Subscription exists
-    ad_require_permission $subscr_id admin
+    permission::require_permission -object_id $subscr_id -privilege admin
     db_dml update_subscr {}
 } else {
     # Create a new subscription.
-    ad_require_permission $summary_context_id admin
+    permission::require_permission -object_id $summary_context_id -privilege admin
 
     set creation_user [ad_conn user_id]
     set creation_ip [ns_conn peeraddr]
     set subscr_id [db_exec_plsql create_subscr {}]
 }
 
 
-set review_url subscr-ae?[export_url_vars subscr_id impl_id summary_context_id return_url meta]
+set review_url subscr-ae?[export_vars -url {subscr_id impl_id summary_context_id return_url meta}]
 
 set context [list [list $review_url "Edit subscription"] "Done"]