Index: openacs-4/packages/dotlrn/www/members-chunk-table.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/members-chunk-table.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/members-chunk-table.tcl	19 May 2002 15:02:13 -0000	1.7
+++ openacs-4/packages/dotlrn/www/members-chunk-table.tcl	21 May 2002 07:46:03 -0000	1.8
@@ -91,14 +91,8 @@
 lappend table_def [list \
     role \
     "Role" \
-    {decode(role, 'Professor', 1, 
-                      'Administrator', 2, 
-                      'Teaching Assistant', 3, 
-                      'Course Assistant', 4, 
-                      'Course Administrator', 5, 
-                      'Student', 6, 
-                      'Member', 7) asc, last_name $order} \
-        {<td><nobr>$role</nobr></td>}
+    {decode(role, 'instructor', 1, 'admin', 2, 'teaching_assistant', 3, 'course_assistant', 4, 'course_admin', 5, 'student', 6, 'member', 7) asc, last_name $order} \
+    "<td><nobr>\[dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type \$rel_type\]</nobr></td>"
 ]
 
 if {$site_wide_admin_p} {