diff options
| -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 {}] |