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.22.2 -r1.4.22.3
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	9 Sep 2013 16:44:25 -0000	1.4.22.2
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	28 Sep 2013 15:14:52 -0000	1.4.22.3
@@ -18,40 +18,40 @@
   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]
-"