From: cjwatson <>
Date: Tue, 26 Nov 2002 23:01:58 +0000 (-0800)
Subject: [project @ 2002-11-26 15:01:58 by cjwatson]
X-Git-Tag: release/2.6.0~979
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=58b0f2b5e26c662ec4147cf87a5f2f6fc5a91e44;p=debbugs.git

[project @ 2002-11-26 15:01:58 by cjwatson]
Display the correct links when asking for a package that only exists as a
source package, e.g. pkg=openssh.
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 1cf0b8db..8b769642 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -192,7 +192,13 @@ if (defined $pkg || defined $src) {
     }
     if (defined $maint or @bugs) {
 	my %pkgsrc = %{getpkgsrc()};
-	my @pkgs = getsrcpkgs($pkg ? $pkgsrc{ $pkg } : $src);
+	my $srcforpkg;
+	if (defined $pkg) {
+	    $srcforpkg = $pkgsrc{$pkg};
+	    defined $srcforpkg or $srcforpkg = $pkg;
+	}
+	my @pkgs = getsrcpkgs($pkg ? $srcforpkg : $src);
+	undef $srcforpkg unless @pkgs;
 	@pkgs = grep( !/^\Q$pkg\E$/, @pkgs ) if ( $pkg );
 	if ( @pkgs ) {
 	    @pkgs = sort @pkgs;
@@ -213,8 +219,8 @@ if (defined $pkg || defined $src) {
 	    } else {
 		push @references, sprintf "to the <a href=\"%s\">%s package page</a>", urlsanit("http://${debbugs::gPackagePages}/$pkg"), htmlsanit("$pkg");
 	    }
-	    if ($pkgsrc{ $pkg }) {
-		push @references, sprintf "to the source package <a href=\"%s\">%s</a>'s bug page", srcurl($pkgsrc{$pkg}), htmlsanit($pkgsrc{$pkg});
+	    if ($srcforpkg) {
+		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";