Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/dotlrn/www/admin/user.tcl	1 Jan 2007 15:26:05 -0000	1.22
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	9 Nov 2008 23:29:24 -0000	1.23
@@ -86,6 +86,8 @@
 }
 
 set site_wide_admin_p [acs_user::site_wide_admin_p]
+# ER: this is silly, user has to be at least dotlrn admin to get 
+# to this page and dotlrn admin right is checked above
 set dotlrn_admin_p [dotlrn::admin_p]
 
 set administrative_action_p [expr {$site_wide_admin_p || $dotlrn_admin_p}]
@@ -105,7 +107,7 @@
 
 set dual_approve_return_url [ns_urlencode [dotlrn::get_admin_url]/user-new-2?user_id=$user_id&referer=$return_url]
 
-if {$site_wide_admin_p} {
+if { [acs_user::site_wide_admin_p -user_id $user_id] } {
     set toggle_value revoke
     set toggle_text [_ dotlrn.Revoke_site_wide_admin]
 } else {