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.21 -r1.22
--- openacs-4/packages/dotlrn/www/admin/user.tcl	8 Aug 2006 21:26:28 -0000	1.21
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	1 Jan 2007 15:26:05 -0000	1.22
@@ -88,10 +88,7 @@
 set site_wide_admin_p [acs_user::site_wide_admin_p]
 set dotlrn_admin_p [dotlrn::admin_p]
 
-set administrative_action_p 0
-if { ($oacs_site_wide_admin_p && $site_wide_admin_p) || (!$site_wide_admin_p && ($oacs_site_wide_admin_p || $dotlrn_admin_p))} {
-	set administrative_action_p 1
-}
+set administrative_action_p [expr {$site_wide_admin_p || $dotlrn_admin_p}]
 
 set context_bar [list [list users [_ dotlrn.Users]] "$first_names $last_name"]