Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	30 Jul 2004 22:50:10 -0000	1.7
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	13 Aug 2004 17:09:55 -0000	1.8
@@ -196,7 +196,7 @@
 	
 	if { [info exists grades_wa($party_id)] && ![empty_string_p $grades_wa($party_id)] } {
 	    # new file?
-	    if { [db_string grades_wa_new "select count(*) from evaluation_student_evals ese, evaluation_tasks est where ese.party_id = :party_id and ese.task_item_id = :task_item_id and content_revision__is_live(ese.evaluation_id) = true and est.task_id = :task_id and est.task_item_id = ese.task_item_id"] } {
+	    if { [db_string grades_wa_new { *SQL* }] } {
 		set new_item_p 0
 	    } else {
 		set new_item_p 1
@@ -220,7 +220,7 @@
 	}
 	if { [info exists grades_na($party_id)] && ![empty_string_p $grades_na($party_id)] } {
 	    # new file?
-	    if { [db_string grades_na_new "select count(*) from evaluation_student_evals ese, evaluation_tasks est where ese.party_id = :party_id and ese.task_item_id = :task_item_id and content_revision__is_live(ese.evaluation_id) = true and ese.task_item_id = est.task_item_id and est.task_id = :task_id"] } {
+	    if { [db_string grades_na_new { *SQL* }] } {
 		set new_item_p 0
 	    } else {
 		set new_item_p 1