Index: openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	8 Oct 2004 16:22:20 -0000	1.15
+++ openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	12 Nov 2004 01:29:39 -0000	1.16
@@ -42,6 +42,13 @@
 set done_students [list]
 set evaluation_mode "display"
 
+set roles_table ""
+set roles_clause ""
+if { ![empty_string_p $community_id] && $number_of_members == 1 } {
+    set roles_table [db_map roles_table_query]
+    set roles_clause [db_map roles_clause_query]
+}
+
 #
 # working with already evaluated parties
 #