Index: openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	28 Jun 2015 12:28:50 -0000	1.19
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students-2.tcl	7 Aug 2017 23:48:10 -0000	1.20
@@ -38,7 +38,7 @@
 	foreach party_id [array names grades_gs] {
 	    if { [info exists grades_gs($party_id)] && $grades_gs($party_id) ne "" } {
 		incr counter
-		set grades_gs($party_id) [template::util::leadingTrim $grades_gs($party_id)]
+		set grades_gs($party_id) [util::trim_leading_zeros $grades_gs($party_id)]
 		if { ![ad_var_type_check_number_p $grades_gs($party_id)] } {
 		    set wrong_grade $grades_gs($party_id)
 		    ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]"
@@ -54,7 +54,7 @@
 	foreach party_id [array names grades_wa] {
 	    if { [info exists grades_wa($party_id)] && $grades_wa($party_id) ne "" } {
 		incr counter
-		set grades_wa($party_id) [template::util::leadingTrim $grades_wa($party_id)]
+		set grades_wa($party_id) [util::trim_leading_zeros $grades_wa($party_id)]
 		if { ![ad_var_type_check_number_p $grades_wa($party_id)] } {
 		    set wrong_grade $grades_wa($party_id)
 		    ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]"
@@ -70,7 +70,7 @@
 	foreach party_id [array names grades_na] {
 	    if { [info exists grades_na($party_id)] && $grades_na($party_id) ne ""} {
 		incr counter
-		set grades_na($party_id) [template::util::leadingTrim $grades_na($party_id)]
+		set grades_na($party_id) [util::trim_leading_zeros $grades_na($party_id)]
 		if { ![ad_var_type_check_number_p $grades_na($party_id)] } {
 		    set wrong_grade $grades_na($party_id)
 		    ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]"
@@ -86,7 +86,7 @@
 	foreach party_id [array names grades_to_edit] {
 	    if { [info exists grades_to_edit($party_id)] && $grades_to_edit($party_id) ne "" } {
 		incr counter
-		set grades_to_edit($party_id) [template::util::leadingTrim $grades_to_edit($party_id)]
+		set grades_to_edit($party_id) [util::trim_leading_zeros $grades_to_edit($party_id)]
 		if { ![ad_var_type_check_number_p $grades_to_edit($party_id)] } {
 		    set wrong_grade $grades_to_edit($party_id)
 		    ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]"
@@ -282,3 +282,9 @@
 
 ad_returnredirect [export_vars -base student-list { task_id } ]
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: