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.13 -r1.14
--- openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl	22 Dec 2004 22:06:40 -0000	1.13
+++ openacs-4/packages/evaluation/www/admin/evaluations/grades-sheet-parse.tcl	21 Mar 2005 17:33:37 -0000	1.14
@@ -100,6 +100,9 @@
 	set party_id [string trim [lindex $evaluation 0]] 
 	set party_name [db_string get_party_name { *SQL* }]
 	set grade [string trim [template::util::leadingTrim [lindex $evaluation 2]]] 
+	# removing any " at the end or at the beginning of the grade that might come from the cvs file
+	regsub  ^\" $grade "" grade
+	regsub  \"\$ $grade "" grade
 	set comments [string trim [lindex $evaluation 3]]
 	
 	# removing the first and last " that comes from the csv format