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.22.4.1
--- 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	22 Apr 2008 22:37:48 -0000	1.22.4.1
@@ -85,8 +85,8 @@
     set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
 }
 
-set site_wide_admin_p [acs_user::site_wide_admin_p]
-set dotlrn_admin_p [dotlrn::admin_p]
+set site_wide_admin_p [acs_user::site_wide_admin_p -user_id $user_id]
+set dotlrn_admin_p [dotlrn::admin_p -user_id $user_id]
 
 set administrative_action_p [expr {$site_wide_admin_p || $dotlrn_admin_p}]