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