From: joy <>
Date: Tue, 19 Aug 2003 20:02:25 +0000 (-0800)
Subject: [project @ 2003-08-19 13:02:25 by joy]
X-Git-Tag: release/2.6.0~818
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57777fe08eb907f6260a8eb68d30f4a27ee94837;p=debbugs.git

[project @ 2003-08-19 13:02:25 by joy]
moved pts block under @pkgs so pseudo-packages aren't affected, and slightly improved the link choice logic (hi Kamion :)
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 07553741..b6fa44ee 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -264,10 +264,6 @@ if (defined $pkg || defined $src) {
 	my @pkgs = getsrcpkgs($pkg ? $srcforpkg : $src);
 	undef $srcforpkg unless @pkgs;
 	my @references;
-	my $ptslink = $src || $srcforpkg;
-	if (defined $debbugs::gSubscriptionDomain) {
-	    push @references, "to the <a href=\"http://$debbugs::gSubscriptionDomain/$ptslink\">Package Tracking System</a>";
-	}
 	@pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg );
 	if ( @pkgs ) {
 	    @pkgs = sort @pkgs;
@@ -279,6 +275,10 @@ if (defined $pkg || defined $src) {
 	    push @pkgs, $src if ( $src && !grep(/^\Q$src\E$/, @pkgs) );
 	    print join( ", ", map( "<A href=\"" . pkgurl($_) . "\">$_</A>", @pkgs ) );
 	    print ".\n";
+	    if (defined $debbugs::gSubscriptionDomain) {
+		my $ptslink = $pkg ? $srcforpkg : $src;
+		push @references, "to the <a href=\"http://$debbugs::gSubscriptionDomain/$ptslink\">Package Tracking System</a>";
+	    }
 	}
 	if ($pkg) {
 	    my $pseudodesc = getpseudodesc();