- print "Set to 0 to enable basic search only, 1 to enable advanced search only\n";
- print "or 2 to enable both.\n";
- print "[$WHT$allow_advanced_search$NRM]: $WHT";
- $allow_advanced_search = <STDIN>;
- chomp($allow_advanced_search);
- if ( $allow_advanced_search eq "" ) {
- $allow_advanced_search = 0;
+ print " 0 = enable basic search only\n";
+ print " 1 = enable advanced search only\n";
+ print " 2 = enable both\n";
+ print "\n";
+
+ print "Allowed search (0,1,2)? [$WHT$allow_advanced_search$NRM]: $WHT";
+ $new_allow_advanced_search = <STDIN>;
+ if ( $new_allow_advanced_search =~ /^[0|1|2]\n/i ) {
+ $allow_advanced_search = $new_allow_advanced_search;