Check for an empty 'Search for' field.
This commit is contained in:
parent
9f1f345831
commit
5ddd4f9c97
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=6342
1 changed files with 10 additions and 1 deletions
|
@ -36,7 +36,16 @@ sub do_wais {
|
|||
@FORM_source = split(/\0/, $in{"source"});
|
||||
$FORM_max = $in{"max"};
|
||||
$FORM_docnum = $in{"docnum"};
|
||||
|
||||
|
||||
if ($#FORM_words < 0) {
|
||||
print &html_header("Mail Archive Search") .
|
||||
"<p>No search term given.";
|
||||
print "<p>\nPlease return to the " .
|
||||
"search page and fill out the 'Search for' field!\n";
|
||||
print &html_footer;
|
||||
exit 0;
|
||||
}
|
||||
|
||||
@AVAIL_source = &checksource(@FORM_source);
|
||||
if ($#FORM_source != $#AVAIL_source) {
|
||||
$j = 0;
|
||||
|
|
Loading…
Reference in a new issue