From 6ad63a393843533db2ae21f76885e649f7a34334 Mon Sep 17 00:00:00 2001 From: joy <> Date: Tue, 19 Aug 2003 10:39:00 -0800 Subject: [PATCH] [project @ 2003-08-19 11:39:00 by joy] add PTS link for source packages (doh :) --- cgi/pkgreport.cgi | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi index 5362a0f8..c4872397 100755 --- a/cgi/pkgreport.cgi +++ b/cgi/pkgreport.cgi @@ -263,6 +263,7 @@ if (defined $pkg || defined $src) { } my @pkgs = getsrcpkgs($pkg ? $srcforpkg : $src); undef $srcforpkg unless @pkgs; + my @references; @pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg ); if ( @pkgs ) { @pkgs = sort @pkgs; @@ -274,9 +275,11 @@ if (defined $pkg || defined $src) { push @pkgs, $src if ( $src && !grep(/^\Q$src\E$/, @pkgs) ); print join( ", ", map( "$_", @pkgs ) ); print ".\n"; + if (defined $debbugs::gSubscriptionDomain) { + push @references, "to the Package Tracking System"; + } } if ($pkg) { - my @references; my $pseudodesc = getpseudodesc(); if (defined($pseudodesc) and exists($pseudodesc->{$pkg})) { push @references, "to the list of other pseudo-packages"; @@ -292,10 +295,10 @@ if (defined $pkg || defined $src) { push @references, sprintf "to the source package %s's bug page", srcurl($srcforpkg), htmlsanit($srcforpkg); } } - if (@references) { - $references[$#references] = "or $references[$#references]" if @references > 1; - print "
You might like to refer ", join(", ", @references), ".
\n"; - } + } + if (@references) { + $references[$#references] = "or $references[$#references]" if @references > 1; + print "You might like to refer ", join(", ", @references), ".
\n"; } print "If you find a bug not listed here, please\n"; printf "report it.
\n", -- 2.39.5