diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:16:33 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:16:33 -0500 |
| commit | ae32769254b3641abf8ff06f5bec229fefa0ebe0 (patch) | |
| tree | faba91ba89ad8455855fa19519913e774357ca00 /GradeBook.tcl | |
| parent | 59dbe5eda580e8be6b25d32ba09be082298c5f07 (diff) | |
| download | GradeBook-ae32769254b3641abf8ff06f5bec229fefa0ebe0.tar.gz GradeBook-ae32769254b3641abf8ff06f5bec229fefa0ebe0.zip | |
IpdateGrades uses UpdateColValue4UserNameNonWeb
Ignore-this: 7019cd2d7459956f3a1ec6deb30d0ff5
darcs-hash:20110121151633-067c0-b10d8ac4c631cb482acd4c292e8a8dd499b4c9d2.gz
Diffstat (limited to 'GradeBook.tcl')
| -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 |