diff options
| -rwxr-xr-x | GradeBook.tcl | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 0ca4dca..3943d4f 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -501,18 +501,10 @@ proc UpdateGrades { permission_list user } { set eval_str "SELECT UserName FROM GradesTable" set err [catch { db eval $eval_str v { - 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 - } - } + if { [info exist colval($v(UserName))] } { + UpdateColValue4UserNameNonWeb $columnname $v(UserName) $colval($v(UserName)) + } } - } errStat ] if { $err } { htmlErrorMsg $errStat |