Index: openacs.org-dev/packages/acs-subsite/www/permissions/revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/permissions/revoke-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-subsite/www/permissions/revoke-2.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-subsite/www/permissions/revoke-2.tcl	8 Oct 2002 15:46:49 -0000	1.1.1.2
@@ -11,18 +11,14 @@
   { operation "" }
 }
 
-ad_require_permission $object_id admin
+permission::require_permission -object_id $object_id -privilege admin
 
 if { [string eq $operation "Yes"] } {
     db_transaction {
 	foreach item $revoke_list {
 	    set party_id [lindex $item 0]
 	    set privilege [lindex $item 1]
-	    db_exec_plsql revoke {
-		begin
-		    acs_permission.revoke_permission(:object_id, :party_id, :privilege);
-		end;
-	    }
+            permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege
 	}
     }
 }