Index: openacs-4/packages/dotlrn/www/members-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	8 Mar 2002 00:27:05 -0000	1.4
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	15 Mar 2002 01:09:21 -0000	1.5
@@ -12,9 +12,17 @@
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 
-set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id $community_id]
-set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
+set referer [ns_conn url]
 
+set site_wide_admin_p [ad_permission_p -user_id $user_id [acs_magic_object "security_context_root"] "admin"]
+if {!$site_wide_admin_p} {
+    set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id $community_id]
+    set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
+} else {
+    set admin_p 1
+    set read_private_data_p 1
+}
+
 if {![exists_and_not_null referer]} {
     if {[string equal $admin_p "t"] == 1} {
         set referer "one-community-admin"
@@ -28,7 +36,9 @@
 
 template::multirow create users rel_id rel_type user_id first_names last_name email
 
+set user_list [list]
 foreach user $list_of_users {
+    lappend user_list [lindex $user 2]
     template::multirow append users \
         [lindex $user 0] \
         [dotlrn_community::get_role_pretty_name_from_rel_type -rel_type [lindex $user 1]] \