only allow control to touch bugs in db-h, not archive

diff --git a/scripts/service.in b/scripts/service.in
index 74768f34f72d8625108bd093af0b21b25f19ada8..66629746faa4ee5705a0ceab426b9f1229d44d57 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1525,7 +1525,8 @@ sub endmerge {
 sub getbug {
     &dlen("getbug $ref");
     $lowstate eq 'idle' || die "$state ?";
-    if (($data = &lockreadbug($ref))) {
+    # Only use unmerged bugs here
+    if (($data = &lockreadbug($ref,'db-h'))) {
         $sref= $ref;
         $lowstate= "open";
         &dlex("getbug => 1");