diff options
| -rwxr-xr-x | GradeBook.tcl | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 85aa716..ff93ef1 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -299,14 +299,16 @@ 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)\"] - set err2 [catch { - db eval $sql_str - } errStat2 ] - if { $err2 } { - htmlErrorMsg $errStat2 - dbg "the following error happen: $errStat2" 3 - } + if { [info exist colval($v(UserName))] } { + 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 } { + htmlErrorMsg $errStat2 + dbg "the following error happen: $errStat2" 3 + } + } } } errStat ] |