Index: openacs-4/packages/dotlrn/www/admin/one-class-instance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/Attic/one-class-instance.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/one-class-instance.tcl	7 Nov 2001 22:22:56 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/one-class-instance.tcl	9 Nov 2001 01:11:31 -0000	1.2
@@ -15,12 +15,12 @@
 }
 
 # Get all users for this community, including role
-set users [dotlrn_community::list_users $class_instance_id]
+set list_of_users [dotlrn_community::list_users $class_instance_id]
 
 template::multirow create users rel_id rel_type user_id first_names last_name email
 
-foreach user $users {
-    template::multirow append users [lindex $user 0] [lindex $user 1] [lindex $user 2] [lindex $user 3] [lindex $user 4] [lindex $user 5]
+foreach user $list_of_users {
+    template::multirow append users [lindex $user 0] [dotlrn_community::get_pretty_rel_type [lindex $user 1]] [lindex $user 2] [lindex $user 3] [lindex $user 4] [lindex $user 5]
 }
 
 ad_return_template