From 63323b2a2f1966937fd044843fc4891169f5882b Mon Sep 17 00:00:00 2001
From: ajt <>
Date: Sun, 9 Oct 2005 13:02:24 -0800
Subject: [PATCH] [project @ 2005-10-09 14:02:24 by ajt] add blocked-by/blocks
 annotations to pkgreport

---
 cgi/pkgreport.cgi | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

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;
+}
-- 
2.39.5