From a008bb25da7f9be158f00ee070fe269a275c999f Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Sat, 18 Dec 2010 20:27:23 -0500
Subject: error check added

darcs-hash:20101219012723-067c0-1d9d5d64e6085c5a450b9100cf4cddd03372bb17.gz
---
 GradeBook.tcl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'GradeBook.tcl')

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 3ecfb42..4bc6eef 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -282,8 +282,14 @@ proc UpdateGrades { permission_list user } {
 		set eval_str "SELECT UserName  FROM GradesTable"
 		set err [catch {
 				db eval $eval_str v {
-				set sql_str [concat UPDATE  GradesTable SET \"$columnname\"=\"$colval($v(UserName))\" where UserName=\"$v(UserName)\"]
-				db eval $sql_str
+				set sql_str [concat UPDATE  GradesTable SET \"$columnname\"=\'$colval($v(UserName))\' where UserName=\"$v(UserName)\"]
+				set err2 [catch {
+					db eval $sql_str
+				} errStat2 ]
+				if { $err2 } {
+					puts "the following error happen: $errStat2"
+					dbg  "the following error happen: $errStat2" 3
+				} 
 				}
 				
 			} errStat ]
-- 
cgit v1.2.3