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.16 -r1.16.6.1
--- openacs-4/packages/dotlrn/www/admin/user.tcl	29 May 2003 18:05:01 -0000	1.16
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	17 Jun 2004 16:33:21 -0000	1.16.6.1
@@ -82,6 +82,12 @@
     set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
 }
 
+set site_wide_admin_p [permission::permission_p \
+        -party_id $user_id \
+        -object_id [acs_magic_object "security_context_root"] \
+        -privilege admin \
+        ]
+
 set context_bar [list [list users [_ dotlrn.Users]] "$first_names $last_name"]
 
 set dual_approve_return_url [ns_urlencode [dotlrn::get_admin_url]/user-new-2?user_id=$user_id&referer=$return_url]