diff options
| -rwxr-xr-x | GradeBook.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
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 ] |