Index: openacs-4/packages/evaluation/www/admin/grades/grades.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades.tcl,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/evaluation/www/admin/grades/grades.tcl	17 Nov 2004 23:58:23 -0000	1.11.2.1
+++ openacs-4/packages/evaluation/www/admin/grades/grades.tcl	23 Apr 2005 11:12:55 -0000	1.11.2.2
@@ -20,7 +20,7 @@
 
 set actions [list "[_ evaluation.Add_assignment_type_]" [export_vars -base "grades-add-edit" { }]]
 
-if { [lc_numeric %2.f [db_string sum_grades { *SQL* }]] > 100.00} {
+if { [lc_numeric %.2f [db_string sum_grades { *SQL* }]] > 100.00} {
     set aggregate_label "<span style=\"color: red;\">[_ evaluation.Total_]</span>"
 } else {
     set aggregate_label "[_ evaluation.Total_]"
@@ -80,7 +80,11 @@
 }
 
 db_multirow grades get_class_grades { *SQL* } {
-    set weight [lc_numeric %.2f $weight]
+    if [empty_string_p $weight] {
+	set weight [lc_numeric %.2f 0]
+    } else {
+	set weight [lc_numeric %.2f $weight]
+    }
 }
 
 db_1row get_total_weight { *SQL* }