summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--CGI.pl4
-rwxr-xr-xquery.cgi5
2 files changed, 8 insertions, 1 deletions
diff --git a/CGI.pl b/CGI.pl
index 69a67b36b..a5a4b3b1e 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -270,6 +270,8 @@ sub navigation_header {
}
+$::CheckOptionValues = 1;
+
sub make_options {
my ($src,$default,$isregexp) = (@_);
my $last = "";
@@ -294,7 +296,7 @@ sub make_options {
}
}
if (!$found && $default ne "") {
- if ( Param("strictvaluechecks") &&
+ if ( Param("strictvaluechecks") && $::CheckOptionValues &&
($default ne $::dontchange) && ($default ne "-All-") &&
($default ne "DUPLICATE") ) {
print "Possible bug database corruption has been detected. " .
diff --git a/query.cgi b/query.cgi
index c7d49ace8..5cb40f147 100755
--- a/query.cgi
+++ b/query.cgi
@@ -26,6 +26,11 @@ use strict;
require "CGI.pl";
+$::CheckOptionValues = 0; # It's OK if we have some bogus things in the
+ # pop-up lists here, from a remembered query
+ # that is no longer quite valid. We don't
+ # want to crap out in the query page.
+
# Shut up misguided -w warnings about "used only once":
use vars @::legal_resolution,