diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:16:03 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 10:16:03 -0500 |
| commit | 59dbe5eda580e8be6b25d32ba09be082298c5f07 (patch) | |
| tree | e43c9276c5f88839b03839ac391930c05f1a0511 /GradeBook.tcl | |
| parent | 5aba490b683b5aec1da9c69948a68c07e071995c (diff) | |
| download | GradeBook-59dbe5eda580e8be6b25d32ba09be082298c5f07.tar.gz GradeBook-59dbe5eda580e8be6b25d32ba09be082298c5f07.zip | |
added UpdateColValue4UserNameNonWeb proc
Ignore-this: 1fa5429eef0a5be8ed6a2c5d1338f54d
darcs-hash:20110121151603-067c0-45a0e0a6703ebc00852fa41fb9d925c72236baac.gz
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 68bf1a7..0ca4dca 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -480,6 +480,17 @@ proc UpdateColumn { permission_list user } { DeleteColumnNonWeb $oldcolumnname } +proc UpdateColValue4UserNameNonWeb { columnname username val } { + set sql_str [concat UPDATE GradesTable SET \"$columnname\"=\'$val\' where UserName=\"$username\"] + set err2 [catch { + db eval $sql_str + } errStat2 ] + if { $err2 } { + htmlErrorMsg $errStat2 + dbg "the following error happen: $errStat2" 3 + } +} + proc UpdateGrades { permission_list user } { global script_name set subaction [::ncgi::value subaction {}] |