[project @ 2003-03-05 17:33:19 by cjwatson]

Add a link from per-package indices to the PTS, if appropriate.

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 7d791817b083a30f3e17149ea757bc9c23f35f5a..0031cc472456ef40015ebf8bc30b342d574ef297 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -220,10 +220,14 @@ if (defined $pkg || defined $src) {
                push @references, sprintf "to the <a href=\"%s\">%s package page</a>", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
            }
            if ($srcforpkg) {
+               if (defined $debbugs::gSubscriptionDomain) {
+                   push @references, "to the <a href=\"http://$debbugs::gSubscriptionDomain/$srcforpkg\">Package Tracking System</a>";
+               }
                push @references, sprintf "to the source package <a href=\"%s\">%s</a>'s bug page", srcurl($srcforpkg), htmlsanit($srcforpkg);
            }
            if (@references) {
-               print "<p>You might like to refer ", join(", or ", @references), ".</p>\n";
+               $references[$#references] = "or $references[$#references]" if @references > 1;
+               print "<p>You might like to refer ", join(", ", @references), ".</p>\n";
            }
        }
        print "<p>If you find a bug not listed here, please\n";