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;
push @pkgs, $src if ( $src && !grep(/^\Q$src\E$/, @pkgs) );
print join( ", ", map( "<A href=\"" . pkgurl($_) . "\">$_</A>", @pkgs ) );
print ".\n";
- if (defined $debbugs::gSubscriptionDomain) {
- push @references, "to the <a href=\"http://$debbugs::gSubscriptionDomain/$src\">Package Tracking System</a>";
- }
}
if ($pkg) {
my $pseudodesc = getpseudodesc();
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>";
- }
# Only output this if the source listing is non-trivial.
if (@pkgs or $pkg ne $srcforpkg) {
push @references, sprintf "to the source package <a href=\"%s\">%s</a>'s bug page", srcurl($srcforpkg), htmlsanit($srcforpkg);