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.12 -r1.13
--- openacs-4/packages/dotlrn/www/members-chunk-table.tcl	29 Jun 2002 15:27:04 -0000	1.12
+++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl	29 Jun 2002 15:40:08 -0000	1.13
@@ -31,6 +31,9 @@
 
 # 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]
 
@@ -74,7 +77,7 @@
     {<td>[acs_community_member_link -user_id $user_id -label $last_name</td>]}
 }
 
-if {$read_private_data_p || [string equal $my_user_id $user_id]} {
+if {$read_private_data_p || [string equal $my_user_id \$user_id]} {
     lappend table_def {
         email
         Email
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.12 -r1.13
--- openacs-4/packages/dotlrn/www/members-chunk.tcl	29 Mar 2002 19:14:46 -0000	1.12
+++ openacs-4/packages/dotlrn/www/members-chunk.tcl	29 Jun 2002 15:40:08 -0000	1.13
@@ -35,7 +35,7 @@
 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]
+    set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id]
 } else {
     set admin_p 1
     set read_private_data_p 1
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	9 May 2002 23:59:52 -0000	1.6
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	29 Jun 2002 15:40:08 -0000	1.7
@@ -31,7 +31,7 @@
 set community_id $config(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 read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id]
 
 # Get all users for this community, including role
 template::util::list_of_ns_sets_to_multirow \
Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl	29 Mar 2002 19:20:50 -0000	1.5
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl	29 Jun 2002 15:40:08 -0000	1.6
@@ -32,7 +32,7 @@
 set community_id $config(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 read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id]
 
 # get all the users in a list of ns_sets
 set all_users_list [dotlrn_community::list_users $community_id]