Index: openacs-4/packages/acs-admin/www/users/modify-admin-privileges.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/modify-admin-privileges.adp,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.adp 27 Oct 2014 16:38:57 -0000 1.3 +++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.adp 20 Oct 2015 10:45:00 -0000 1.3.2.1 @@ -2,7 +2,8 @@ Confirm privilege modification for user #@user_id;noquote@ @context;noquote@ -Are you sure you wish to @action@ admin privileges for user #@user_id@? +Are you sure you wish to @action@ admin privileges for user +@user_info.name@ (@user_info.email@, #@user_id@) ?

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