Index: openacs-4/packages/dotlrn/www/my-communities.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/my-communities.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/my-communities.tcl	29 Mar 2002 19:14:46 -0000	1.4
+++ openacs-4/packages/dotlrn/www/my-communities.tcl	21 May 2002 07:46:03 -0000	1.5
@@ -32,6 +32,8 @@
     set referer "my-communities"
 }
 
-db_multirow communities select_my_communities {}
+db_multirow communities select_my_communities {} {
+    set role_pretty_name [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type $rel_type]
+}
 
 ad_return_template