From: doogie <>
Date: Thu, 22 Nov 2001 08:57:02 +0000 (-0800)
Subject: [project @ 2001-11-22 00:57:02 by doogie]
X-Git-Tag: release/2.6.0~1084
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0306a44481bd1bd567160f00285425789d050a69;p=debbugs.git

[project @ 2001-11-22 00:57:02 by doogie]
When looking at the bugs for a source package, also include bugs filed on
the source package, not just on the binaries from the source package.
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 18c72e3f..3fb8600c 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -78,8 +78,9 @@ if (defined $pkg) {
   @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', $pkg)};
 } elsif (defined $src) {
   $tag = "source $src";
-  my %pkgsrc = %{getpkgsrc()};
-  @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', getsrcpkgs($src))};
+  my @pkgs = getsrcpkgs($src);
+  push @pkgs, $src if ( !grep(/^\Q$src\E$/, @pkgs) );
+  @bugs = @{getbugs(sub {my %d=@_; return $pkg eq $d{"pkg"}}, 'package', @pkgs)};
 } elsif (defined $maint) {
   my %maintainers = %{getmaintainers()};
   $tag = "maintainer $maint";