diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:41:54 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-21 13:41:54 -0500 |
| commit | 7c175258734fff9df778424c0f83891fc377cb10 (patch) | |
| tree | 4dfa4daad83d7d02d36b991064d10d90bcc9ad8d /GradeBook.tcl | |
| parent | 2622141eb59fceb4365f018326301d2d2837b771 (diff) | |
| download | GradeBook-7c175258734fff9df778424c0f83891fc377cb10.tar.gz GradeBook-7c175258734fff9df778424c0f83891fc377cb10.zip | |
added UpdateColValue4GroupNameNonWeb
Ignore-this: c803fa7f134972783539e845cb8441a1
darcs-hash:20110121184154-067c0-c1a2f2a8e03e217a1ad8446e13ae1eec5ef563c3.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 bb414a1..79d5c48 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -489,6 +489,17 @@ proc UpdateColValue4UserNameNonWeb { columnname username val } { } } +proc UpdateColValue4GroupNameNonWeb { columnname groupname val } { + set sql_str [concat UPDATE GradesTable SET \"$columnname\"=\'$val\' where GroupName=\"$groupname\"] + 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 {}] |