Index: openacs-4/packages/acs-subsite/www/permissions/revoke.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl 17 May 2003 10:02:04 -0000 1.4 +++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl 27 Oct 2014 16:39:59 -0000 1.5 @@ -6,52 +6,52 @@ @creation-date 2000-08-20 @cvs-id $Id$ } { - object_id:integer,notnull + object_id:naturalnum,notnull {revoke_list:multiple,optional {}} {application_url ""} } -ad_require_permission $object_id admin +permission::require_permission -object_id $object_id -privilege admin if {[llength $revoke_list] == 0} { - ad_returnredirect "./?[export_url_vars object_id]" + ad_returnredirect "./?[export_vars -url {object_id}]" ad_script_abort } -doc_body_append "[ad_header "Revoke Confirm"] +set title "Revoke Confirm" +set context [list $title] -