[project @ 2002-07-10 03:53:51 by doogie]

Add support for listing *ALL* bugs at a certain severity.  Also, fix the
case when listing bugs by both severity and status.  $d{status} wasn't
being checked if it was defined.

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 58f83751db8aa3365db6beab1fbbab327bec10bf..a632d404d22fa85f3a4cec106b09968f87390cdf 100755 (executable)
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -147,12 +147,17 @@ if (defined $pkg) {
                       $se = $1 if ($se =~ m/<(.*)>/);
                       return $se eq $submitter;
                     }, 'submitter-email', $submitter)};
-} elsif (defined $severity) {
+} elsif (defined($severity) && defined($status)) {
   $tag = "$status $severity bugs";
   @bugs = @{getbugs(sub {my %d=@_;
                       return ($d{"severity"} eq $severity) 
                         && ($d{"status"} eq $status);
                     })};
+} elsif (defined($severity)) {
+  $tag = "$severity bugs";
+  @bugs = @{getbugs(sub {my %d=@_;
+                      return ($d{"severity"} eq $severity);
+                    }, 'severity', $severity)};
 }
 
 my $result = htmlizebugs(\@bugs);