Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	28 Apr 2004 11:06:41 -0000	1.1
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	12 May 2004 02:07:45 -0000	1.2
@@ -7,7 +7,6 @@
 	@creation-date Mar 2004
 } { 
 	task_id:integer,notnull
-	grade_id:integer,notnull
 	max_grade:integer,notnull
 	item_ids:array,integer,optional
 	item_to_edit_ids:array,integer,optional
@@ -123,7 +122,7 @@
 foreach party_id [array names show_student_wa] {
 	if { [info exists grades_wa($party_id)] && ![empty_string_p $grades_wa($party_id)] } { 
 		incr counter 
-		set party_name [db_string get_party_name { *SQL }]
+		set party_name [db_string get_party_name { *SQL* }]
 		set evaluations_wa:${counter}(rownum) $counter
 		set evaluations_wa:${counter}(party_name) $party_name
 		set evaluations_wa:${counter}(grade) $grades_wa($party_id)