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.16.2.1 -r1.16.2.2
--- openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	17 Nov 2004 23:58:20 -0000	1.16.2.1
+++ openacs-4/packages/evaluation/www/admin/evaluations/student-list.tcl	6 Dec 2004 16:43:04 -0000	1.16.2.2
@@ -19,6 +19,7 @@
 
 set user_id [ad_conn user_id]
 db_1row get_task_info { *SQL* }
+set community_id [dotlrn_community::get_community_id]
 
 set page_title "[_ evaluation.lt_Students_List_for_tas]"
 set context [list "[_ evaluation.lt_Students_List_for_tas]"]
@@ -302,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 {