From: ajt <>
Date: Sun, 9 Oct 2005 21:02:24 +0000 (-0800)
Subject: [project @ 2005-10-09 14:02:24 by ajt]
X-Git-Tag: release/2.6.0~641
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=63323b2a2f1966937fd044843fc4891169f5882b;p=debbugs.git

[project @ 2005-10-09 14:02:24 by ajt]
add blocked-by/blocks annotations to pkgreport
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 86ba7515..66b2e22d 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -716,12 +716,12 @@ sub pkg_htmlindexentrystatus {
                  . "</strong>"
                        if (length($status{tags}));
 
-    my @merged= split(/ /,$status{mergedwith});
-    my $mseparator= ";\nMerged with ";
-    for my $m (@merged) {
-        $result .= $mseparator."<A class=\"submitter\" href=\"" . bugurl($m) . "\">#$m</A>";
-        $mseparator= ", ";
-    }
+    $result .= buglinklist(";\nMerged with ", ", ",
+        split(/ /,$status{mergedwith}));
+    $result .= buglinklist(";\nBlocked by ", ", ",
+        split(/ /,$status{blockedby}));
+    $result .= buglinklist(";\nBlocks ", ", ",
+        split(/ /,$status{blocks}));
 
     my $days = 0;
     if (length($status{done})) {
@@ -1095,3 +1095,13 @@ sub get_bug_order_index {
     return -1;
 }
 
+sub buglinklist {
+    my ($prefix, $infix, @els) = @_;
+    my $sep = $prefix;
+    my $r = "";
+    for my $e (@els) {
+        $r .= $sep."<A class=\"submitter\" href=\"" . bugurl($e) . "\">#$e</A>";
+        $sep = $infix;
+    }
+    return $r;
+}