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.5.2.2 -r1.5.2.3 --- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 8 Oct 2015 19:28:03 -0000 1.5.2.2 +++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl 20 Oct 2015 10:45:00 -0000 1.5.2.3 @@ -11,7 +11,8 @@ } set confirmed_url [export_vars -base /acs-admin/users/modify-admin-privileges { - user_id:sign(max_age=60) action:sign {confirmed_p 1}}] + user_id:sign(max_age=60) action:sign {confirmed_p 1} +}] set return_url [export_vars -base /acs-admin/users/one {user_id}] set context [list [list "./" "Users"] "Modify privileges"] @@ -30,6 +31,9 @@ util_memoize_flush_regexp "^permission::.*-party_id $user_id" } +acs_user::get -user_id $user_id -array user_info + + # Local variables: # mode: tcl # tcl-indent-level: 4