diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index e53e78f..dd38bd4 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -2095,6 +2095,7 @@ proc UpdateColumnStDevGrade { columnname } { proc UpdateGradesTableStatistic { permission_list user } { + begin_db_transaction set grades_categories [get_grades_category] # remove unset and deleted categories from stats calculation @@ -2122,11 +2123,14 @@ proc UpdateGradesTableStatistic { permission_list user } { set update_parent_flag false UpdateColumnStatistic $columnname $update_parent_flag } + end_db_transaction } proc UpdateColumnStatistic { columnname {update_parent_flag true} } { + begin_db_transaction set all_column_names [getColListFromTable GradesTable] if { $columnname ni $all_column_names } { + end_db_transaction return } UpdateColumnHighestGrade $columnname @@ -2147,6 +2151,7 @@ proc UpdateColumnStatistic { columnname {update_parent_flag true} } { set root_category_column "Grand Total" } UpdateColumnStatistic $root_category_column + end_db_transaction } proc UpdateGrades { permission_list user } { |