Check for an empty 'Search for' field.

This commit is contained in:
Wolfram Schneider 2000-01-09 16:24:07 +00:00
parent 9f1f345831
commit 5ddd4f9c97
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=6342

View file

@ -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;