diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 999bfea..87ff2ab 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -605,6 +605,7 @@ proc UpdateGradesCategores { db permission_list user } { return } if { $subaction eq "Submit" } { + begin_db_transaction set eval_str "SELECT CategoryName FROM GradesCategoryTable" set err [catch { db eval $eval_str v { @@ -622,6 +623,7 @@ proc UpdateGradesCategores { db permission_list user } { } } } errStat ] + end_db_transaction if { $err } { htmlErrorMsg $errStat dbg "the following error happen: $errStat" msg_level_critical @@ -1721,6 +1723,7 @@ proc UpdateGrades { permission_list user } { set nv [::ncgi::nvlist] array set colval $nv if { $subaction eq "Submit" } { + begin_db_transaction set eval_str "SELECT UserName FROM GradesTable" set err [catch { db eval $eval_str v { @@ -1729,6 +1732,7 @@ proc UpdateGrades { permission_list user } { } } } errStat ] + end_db_transaction if { $err } { htmlErrorMsg $errStat dbg "the following error happen: $errStat" msg_level_critical |