Lock the tables as low-priority when writing. Maybe makes people making changes...

diff --git a/process_bug.cgi b/process_bug.cgi
index b9be355b2b5d9ab0ac12ffb60f080e3b341cafe9..9eb32e1299fb6b6588b937fcd2a4094a07d12f18 100755 (executable)
--- a/process_bug.cgi
+++ b/process_bug.cgi
@@ -482,7 +482,12 @@ sub LogDependencyActivity {
 #
 foreach my $id (@idlist) {
     my %dependencychanged;
-    SendSQL("lock tables bugs write, bugs_activity write, cc write, profiles write, dependencies write, votes write, keywords write, longdescs write, fielddefs write, keyworddefs read");
+    my $write = "LOW_PRIORITY WRITE"; # Might want to make a param to control
+                                      # whether we do LOW_PRIORITY ...
+    SendSQL("LOCK TABLES bugs $write, bugs_activity $write, cc $write, " .
+            "profiles $write, dependencies $write, votes $write, " .
+            "keywords $write, longdescs $write, fielddefs $write, " .
+            "keyworddefs READ, groups READ");
     my @oldvalues = SnapShotBug($id);
 
     if (defined $::FORM{'delta_ts'} && $::FORM{'delta_ts'} ne $delta_ts) {