Index: openacs-4/packages/dotlrn/www/manage-memberships.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/manage-memberships.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/manage-memberships.tcl	29 Mar 2002 19:14:46 -0000	1.4
+++ openacs-4/packages/dotlrn/www/manage-memberships.tcl	30 May 2002 02:57:35 -0000	1.5
@@ -116,9 +116,15 @@
 }
 
 set n_member_classes [db_string select_n_member_classes {}]
-db_multirow member_classes $member_query {}
-db_multirow member_clubs select_member_clubs {}
 
+db_multirow member_classes $member_query {} {
+    set role [dotlrn_community::get_role_pretty_name -community_id $class_instance_id -rel_type $rel_type]
+}
+
+db_multirow member_clubs select_member_clubs {} {
+    set role [dotlrn_community::get_role_pretty_name -community_id $club_id -rel_type $rel_type]
+}
+
 form create non_member_form
 
 element create non_member_form non_member_department_key \