Fisheye: Tag 1.1.2.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/users/modify-admin-privileges-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1.2.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-admin/www/users/modify-admin-privileges-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl	24 Sep 2002 00:12:32 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl	8 Oct 2002 07:39:42 -0000	1.1.2.1
@@ -22,20 +22,14 @@
 
 if $confirmed_p {
     if [string equal grant $action] {
-        db_exec_plsql grant_admin {
-            select acs_permission__grant_permission(
-                acs__magic_object_id('security_context_root'),
-                :user_id,
-                'admin')
-        }
+        permission::grant -object_id [acs_magic_object "security_context_root"] -party_id $user_id -privilege "admin"
     } else {
-        db_exec_plsql revoke_admin {
-            select acs_permission__revoke_permission(
-                acs__magic_object_id('security_context_root'),
-                :user_id,
-                'admin')
-        }
+        permission::revoke -object_id [acs_magic_object "security_context_root"] -party_id $user_id -privilege "admin"
     }
 
     ad_returnredirect $return_url
+
+    # We need to flush all permission checks pertaining to this user.
+    # this is expensive so maybe we should check if we in fact are cacheing.
+    util_memoize_flush_regexp "^permission::.*-party_id $user_id"
 }