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.2 -r1.3 --- openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl 11 Mar 2002 23:06:26 -0000 1.2 +++ openacs-4/packages/dotlrn-portlet/www/dotlrn-members-staff-portlet.tcl 12 Mar 2002 05:16:34 -0000 1.3 @@ -22,16 +22,16 @@ set rel_types_list [dotlrn_community::get_allowed_rel_types -community_id $community_id] foreach rel_type $rel_types_list { - + set rel_pn [dotlrn_community::get_role_pretty_name_from_rel_type \ - -rel_type $rel_type] - + -rel_type $rel_type] + template::multirow create $rel_type rel_id rel_type user_id first_names last_name email member_link - + set list_of_users \ [dotlrn_community::list_users_in_role \ - -rel_type $rel_type $community_id] - + -rel_type $rel_type $community_id] + foreach user $list_of_users { template::multirow append $rel_type \ [lindex $user 0] \ @@ -43,4 +43,3 @@ [acs_community_member_link -user_id [lindex $user 2] -label "[lindex $user 3] [lindex $user 4]"] } } -