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 -N -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]
 
-<h2>Revoke Confirm</h2>
+set body [subst {
+    <h2>Revoke Confirm</h2>
 
-<hr>
+    <hr>
+    Are you sure you want to remove the following entries from the access
+    control list of [db_string name {select acs_object.name(:object_id) from dual}]?
+    <ul>
+}]
 
-Are you sure you want to remove the following entries from the access
-control list of [db_string name {select acs_object.name(:object_id)
-from dual}]?
-
-<ul>
-"
 foreach item $revoke_list {
-  set party_id [lindex $item 0]
-  set privilege [lindex $item 1]
-  doc_body_append "  <li>[db_string party_name {select acs_object.name(:party_id) from dual}]</li>\n"
+    set party_id [lindex $item 0]
+    set privilege [lindex $item 1]
+    append body [subst {
+	<li>[db_string party_name {select acs_object.name(:party_id) from dual}]</li>
+    }]
 }
 
-doc_body_append "</ul>
+append body [subst {
+    </ul>
+    <form method="get" action="revoke-2">
+    [export_vars -form {object_id application_url}]
+}]
 
-<form method=get action=revoke-2>
-[export_vars -form {object_id application_url}]
-
-"
-
 foreach item $revoke_list {
-  doc_body_append "<input type=hidden name=revoke_list value=\"$item\">\n"
+    append body [subst {
+	<input type="hidden" name="revoke_list" value="$item">
+    }]
 }
 
-doc_body_append "
+append body {
+    <input name="operation" type="submit" value="Yes"> <input name="operation" type="submit" value="No">
+    </form>
+}
 
-<input name=operation type=submit value=Yes> <input name=operation type=submit value=No>
-
-</form>
-
-[ad_footer]
-"