Index: openacs-4/packages/dotlrn/www/members-chunk-table.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk-table.tcl,v diff -u -r1.23 -r1.24 --- openacs-4/packages/dotlrn/www/members-chunk-table.tcl 9 Oct 2003 12:46:10 -0000 1.23 +++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl 20 Apr 2004 21:13:20 -0000 1.24 @@ -35,22 +35,20 @@ # use my_user_id here so we don't confuse with user_id from the query set my_user_id [ad_conn user_id] -dotlrn::require_user_read_private_data -user_id $my_user_id - set community_id [dotlrn_community::get_community_id] set referer [ns_conn url] +dotlrn::require_user_read_private_data -user_id $my_user_id -object_id $community_id + set site_wide_admin_p [permission::permission_p \ -object_id [acs_magic_object security_context_root] \ -privilege admin \ ] if {!$site_wide_admin_p} { set admin_p [dotlrn::user_can_admin_community_p -user_id $my_user_id -community_id $community_id] - set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $my_user_id] } else { set admin_p 1 - set read_private_data_p 1 } if {![exists_and_not_null referer]} {