From: cjwatson <>
Date: Thu, 5 Dec 2002 04:50:46 +0000 (-0800)
Subject: [project @ 2002-12-04 20:50:46 by cjwatson]
X-Git-Tag: release/2.6.0~976
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f948b6e2f41f67555ef13449b9a1d6f15ace4922;p=debbugs.git

[project @ 2002-12-04 20:50:46 by cjwatson]
Make pkgreport.cgi?maint=&archive=yes return an error (#152777).
---

diff --git a/cgi/pkgreport.cgi b/cgi/pkgreport.cgi
index 8b769642..8ecd8b6e 100755
--- a/cgi/pkgreport.cgi
+++ b/cgi/pkgreport.cgi
@@ -22,6 +22,19 @@ nice(5);
 
 my %param = readparse();
 
+my $repeatmerged = ($param{'repeatmerged'} || "yes") eq "yes";
+my $archive = ($param{'archive'} || "no") eq "yes";
+my $include = $param{'include'} || "";
+my $exclude = $param{'exclude'} || "";
+my $raw_sort = ($param{'raw'} || "no") eq "yes";
+my $bug_rev = ($param{'bug-rev'} || "no") eq "yes";
+my $pend_rev = ($param{'pend-rev'} || "no") eq "yes";
+my $sev_rev = ($param{'sev-rev'} || "no") eq "yes";
+my $pend_exc = $param{'&pend-exc'} || $param{'pend-exc'} || "";
+my $pend_inc = $param{'&pend-inc'} || $param{'pend-inc'} || "";
+my $sev_exc = $param{'&sev-exc'} || $param{'sev-exc'} || "";
+my $sev_inc = $param{'&sev-inc'} || $param{'sev-inc'} || "";
+
 my ($pkg, $src, $maint, $maintenc, $submitter, $severity, $status);
 
 my %which = (
@@ -42,7 +55,7 @@ foreach ( keys %which ) {
 		last;
 	}
 }
-if (!$found) {
+if (!$found && !$archive) {
 	foreach ( @allowedEmpty ) {
 		if (exists($param{$_})) {
 			${ $which{$_} } = '';
@@ -64,19 +77,6 @@ if (!$found) {
 }
 quit("You have to choose something to select by") if (!$found);
 
-my $repeatmerged = ($param{'repeatmerged'} || "yes") eq "yes";
-my $archive = ($param{'archive'} || "no") eq "yes";
-my $include = $param{'include'} || "";
-my $exclude = $param{'exclude'} || "";
-my $raw_sort = ($param{'raw'} || "no") eq "yes";
-my $bug_rev = ($param{'bug-rev'} || "no") eq "yes";
-my $pend_rev = ($param{'pend-rev'} || "no") eq "yes";
-my $sev_rev = ($param{'sev-rev'} || "no") eq "yes";
-my $pend_exc = $param{'&pend-exc'} || $param{'pend-exc'} || "";
-my $pend_inc = $param{'&pend-inc'} || $param{'pend-inc'} || "";
-my $sev_exc = $param{'&sev-exc'} || $param{'sev-exc'} || "";
-my $sev_inc = $param{'&sev-inc'} || $param{'sev-inc'} || "";
-
 my $Archived = $archive ? " Archived" : "";
 
 my $this = "";