[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 075537411c7a81ec8ca5a7d4e36dfc1c03041518..b6fa44ee03e449a54fc8586f09594f373ee016b2 100755 (executable)
--- 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();