Index: openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	22 Apr 2001 16:13:15 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	2 Oct 2002 11:31:22 -0000	1.2.4.1
@@ -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
 	}
     }
 }