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 -r1.2 -r1.3
--- openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl	19 May 2004 17:33:09 -0000	1.2
+++ openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl	22 May 2004 01:20:25 -0000	1.3
@@ -97,11 +97,11 @@
 		set comments [string trim [lindex $evaluation 3]]
 		
 		# removing the first and last " that comes from the csv format
-		regsub  ^\" $comments "" see_comments
-		regsub  \"\$ $comments "" see_comments
+		regsub  ^\" $comments "" comments
+		regsub  \"\$ $comments "" comments
 		
 		if { [empty_string_p $party_id] && [empty_string_p $grade] && [empty_string_p $comments] } { 
-			# "blank" line, jump it
+			# "blank" line, skip it
 			continue 
 		} 
 		
@@ -123,9 +123,9 @@
 			} 
 
 			# editing without reason
-			if { [string compare [db_string check_evaluated { *SQL* } -default $grade] $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 "<li> There must be an edit reason if you want to edit the grade on party_id ${party_id}.</li>"
+			    append errors_text "<li> (ahora $grade, antes [db_string check_evaluated { *SQL* } -default $grade] There must be an edit reason if you want to edit the grade on party_id ${party_id}.</li>"
 			} 
 			
 			if { $errors } {