diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 5682032..de5f91c 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -309,12 +309,7 @@ proc calculteWeightedTotals { } { # we will do everything with in one transaction # otherwise I see performance degradation on some computers # when there are a lot if update statements - set eval_str [concat BEGIN TRANSACTION] - set err [catch {db eval $eval_str } errStat] - if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" msg_level_critical - } + begin_db_transaction set grades_category [ get_grades_category ] #global grades_category @@ -404,13 +399,7 @@ proc calculteWeightedTotals { } { UpdateColValue4UserNameNonWeb $grand_total_col_name _Max_Points_ $max_weighted_sum # ending transaction - set eval_str [concat END TRANSACTION] - set err [catch {db eval $eval_str } errStat] - if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" msg_level_critical - } - + end_db_transaction } proc grade_Category2html_name { category } { |