From 5c395c38aab8dfad760cccc63adea988ef1bd540 Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Wed, 5 Jul 2000 22:17:36 +0000
Subject: If bugs with an invalid product/component are found, provide a link
 to bring up the list of invalid bugs.

---
 sanitycheck.cgi | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sanitycheck.cgi')

diff --git a/sanitycheck.cgi b/sanitycheck.cgi
index e381aaa82..2dc7035bc 100755
--- a/sanitycheck.cgi
+++ b/sanitycheck.cgi
@@ -227,7 +227,9 @@ foreach my $ref (@checklist) {
     my ($product, $component) = (@$ref);
     SendSQL("select count(*) from components where program = " . SqlQuote($product) . " and value = " . SqlQuote($component));
     if (FetchOneColumn() != 1) {
-        Alert("Bug(s) found with invalid product/component: $product/$component");
+        my $link = "buglist.cgi?product=" . url_quote($product) .
+            "&component=" . url_quote($component);
+        Alert(qq{Bug(s) found with invalid product/component: $product/$component (<a href="$link">bug list</a>)});
     }
 }
 
-- 
cgit v1.2.3-24-g4f1b