Index: openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl 29 Aug 2004 22:25:42 -0000 1.5 +++ openacs-4/packages/evaluation-portlet/www/evaluation-evaluations-portlet.tcl 11 Sep 2004 00:41:10 -0000 1.6 @@ -35,7 +35,8 @@ } if { [string eq $one_instance_p 1] && [string eq $admin_p 0] } { - set total_class_grade [format %.2f [lc_numeric [db_string get_total_grade { *SQL* }]]] + set total_class_grade [lc_numeric [db_string get_total_grade { *SQL* }]] + set max_possible_grade [lc_numeric [db_string max_possible_grade { *SQL* }]] }