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 -r1.12 -r1.13
--- openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	27 Oct 2014 16:41:25 -0000	1.12
+++ openacs-4/packages/evaluation/www/admin/evaluations/evaluate-students.tcl	7 Aug 2017 23:48:10 -0000	1.13
@@ -32,7 +32,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_must_be_a_v]"
@@ -49,7 +49,7 @@
 	    if { $grade_all eq "" } {
 		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_must_be_a_v]"
@@ -67,7 +67,7 @@
 	set counter 0
 	foreach party_id [array names grades] {
 	    if { [info exists grades($party_id)] && $grades($party_id) ne "" } {
-		set grades($party_id) [template::util::leadingTrim $grades($party_id)]
+		set grades($party_id) [util::trim_leading_zeros $grades($party_id)]
 		if { ![ad_var_type_check_number_p $grades($party_id)] } {
 		    set wrong_grade $grades($party_id)
 		    ad_complain "[_ evaluation.lt_The_grade_most_be_a_v]"
@@ -203,5 +203,13 @@
 set export_vars [export_vars -form { grades_wa comments_wa show_student_wa grades_na comments_na show_student_na item_ids grades_to_edit reasons_to_edit show_student_to_edit item_to_edit_ids }]
 
 
+template::add_event_listener -CSSclass "backbuttons" -script {history.go(-1);}
 
 
+
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: