Index: openacs-4/packages/dotlrn/www/student-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/student-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/student-list.tcl	7 Nov 2001 18:49:41 -0000	1.2
+++ openacs-4/packages/dotlrn/www/student-list.tcl	9 Nov 2001 03:56:43 -0000	1.3
@@ -23,10 +23,10 @@
 
 set list_of_students [dotlrn_community::list_users $community_id]
 
-template::multirow create students user_id first_names last_name email
+template::multirow create students user_id first_names last_name email role
 
 foreach student $list_of_students {
-    template::multirow append students [lindex $student 1] [lindex $student 2] [lindex $student 3] [lindex $student 4]
+    template::multirow append students [lindex $student 2] [lindex $student 3] [lindex $student 4] [lindex $student 5] [dotlrn_community::get_pretty_rel_type [lindex $student 1]]
 }
 
 ad_return_template