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.17 -r1.18
--- openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	6 Dec 2004 16:40:54 -0000	1.17
+++ openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	6 Dec 2004 16:44:24 -0000	1.18
@@ -303,7 +303,6 @@
     }
     set sql_query [db_map sql_query_groups]
 } else {
-    set community_id [dotlrn_community::get_community_id]
     if { [llength $done_students] > 0 } {
 	set not_in_clause [db_map not_yet_in_clause_non_empty]
     } else {