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.10 -r1.11
--- openacs-4/packages/evaluation/www/admin/grades/grades.tcl 11 Sep 2004 00:49:21 -0000 1.10
+++ openacs-4/packages/evaluation/www/admin/grades/grades.tcl 24 Sep 2004 21:23:14 -0000 1.11
@@ -20,7 +20,7 @@
set actions [list "[_ evaluation.Add_assignment_type_]" [export_vars -base "grades-add-edit" { }]]
-if { [format %2.f [db_string sum_grades { *SQL* }]] > 100.00} {
+if { [lc_numeric %2.f [db_string sum_grades { *SQL* }]] > 100.00} {
set aggregate_label "[_ evaluation.Total_]"
} else {
set aggregate_label "[_ evaluation.Total_]"
@@ -80,12 +80,12 @@
}
db_multirow grades get_class_grades { *SQL* } {
- set weight [format %.2f [lc_numeric $weight]]
+ set weight [lc_numeric %.2f $weight]
}
db_1row get_total_weight { *SQL* }
-set total_weight [format %.2f $total_weight]
+set total_weight [lc_numeric %.2f $total_weight]
if { ![string eq $total_weight "100.00"] && ![string eq $total_weight "0"] } {
set notice "[_ evaluation.lt_The_sum_of_the_weight]"