- Support usertagging cloned bugs (closes: #375697)

diff --git a/debian/changelog b/debian/changelog
index 40c9c6530b8e8a749196d474b4a65e2d986cd6eb..f1522fd668c0bcd62a0556ced2d932df304ea49f 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -156,6 +156,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
       package called that. (closes: #414825)
     - Add link from singlemsg page to main page; remove useless links
       (closes: #404806)
+    - Support usertagging cloned bugs (closes: #375697)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100

diff --git a/scripts/service.in b/scripts/service.in
index f1af6ea4c2561d3b00cb34339b00658c821431b6..12e3bdf577c6a9c0893bbf3c50d4bc736e2ab2b7 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -343,6 +343,9 @@ END
     } elsif (m/^usertags?\s+\#?(-?\d+)\s+(([=+-])\s*)?(\S.*)?$/i) {
        $ok++;
        $ref = $1; $addsubcode = $3 || "+"; $tags = $4;
+       if ($ref =~ m/^-\d+$/ && defined $clonebugs{$ref}) {
+            $ref = $clonebugs{$ref};
+        }
        if ($user eq "") {
            &transcript("No valid user selected\n");
            $errors++;