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.10 -r1.11
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	4 Dec 2002 09:50:08 -0000	1.10
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	20 Apr 2004 21:13:34 -0000	1.11
@@ -31,10 +31,15 @@
 set community_id $config(community_id)
 
 set admin_p [dotlrn::user_can_admin_community_p -user_id $user_id -community_id $community_id]
-set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id]
+set read_private_data_p [dotlrn::user_can_read_private_data_p -user_id $user_id -object_id $community_id]
 set spam_p [dotlrn::user_can_spam_community_p -user_id [ad_get_user_id] -community_id $community_id]
 
 # Get all users for this community, including role
 template::util::list_of_ns_sets_to_multirow \
     -rows [dotlrn_community::list_users $community_id] \
     -var_name "users"
+
+template::multirow foreach users { 
+    set role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
+}
+