added begin/end transactions during stat updates: significant speedup

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 } {