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.2 -r1.3
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	11 Mar 2002 23:06:26 -0000	1.2
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-portlet.tcl	26 Mar 2002 21:31:01 -0000	1.3
@@ -19,18 +19,8 @@
 set read_private_data_p [dotlrn::user_can_read_private_data_p $user_id]
 
 # Get all users for this community, including role
-set list_of_users [dotlrn_community::list_users $community_id]
+template::util::list_of_ns_sets_to_multirow \
+    -rows [dotlrn_community::list_users $community_id] \
+    -var_name "users"
 
-template::multirow create users rel_id rel_type user_id first_names last_name email
-
-foreach user $list_of_users {
-    template::multirow append users \
-        [lindex $user 0] \
-        [dotlrn_community::get_role_pretty_name_from_rel_type -rel_type [lindex $user 1]] \
-        [lindex $user 2] \
-        [lindex $user 3] \
-        [lindex $user 4] \
-        [lindex $user 5]
-}
-
 ad_return_template