- print "This option allows you to change the advanced search form.\n";
- print "Set to 0 to disable the advanced search, 1 to have advanced\n";
- print "and search only or 2 for both forms.\n";
- print "[$WHT$allow_advanced_search$NRM]: $WHT";
- $allows_advanced_search = <STDIN>;
- chomp($allows_advanced_search);
- if ( $allows_advanced_search eq "" ) {
- $allows_advanced_searchn=0;
+ print "This option allows you to control the use of advanced search form.\n";
+ 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;