diff options
-rw-r--r-- | CGI.pl | 4 | ||||
-rwxr-xr-x | query.cgi | 5 |
2 files changed, 8 insertions, 1 deletions
@@ -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. " . @@ -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, |