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 -N -r1.7 -r1.8 --- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl 24 Sep 2004 21:23:14 -0000 1.7 +++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl 29 Sep 2004 17:44:59 -0000 1.8 @@ -72,8 +72,8 @@ set wrong_grade $grades($party_id) ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]" } else { - set old_grade [lc_numeric %.2f [db_string get_old_grade { *SQL* }]] - if { ![string eq $old_grade [lc_numeric %.2f [expr $grades($party_id)*100/$max_grade]]] } { + set old_grade [format %.2f [db_string get_old_grade { *SQL* }]] + if { ![string eq $old_grade [format %.2f [expr $grades($party_id)*100/$max_grade]]] } { incr counter if { $max_grade != 100 } { append reasons($party_id) "[_ evaluation.Weight_change]" Index: openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl 24 Sep 2004 21:23:14 -0000 1.10 +++ openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl 29 Sep 2004 17:44:59 -0000 1.11 @@ -129,7 +129,7 @@ } # editing without reason - if { ![string eq [lc_numeric %.2f [db_string check_evaluated { *SQL* } -default $grade]] [lc_numeric %.2f $grade]] && [empty_string_p $comments] } { + if { ![string eq [format %.2f [db_string check_evaluated { *SQL* } -default $grade]] [format %.2f $grade]] && [empty_string_p $comments] } { incr errors append errors_text "
  • [_ evaluation.lt_There_must_be_an_edit]
  • " }