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
|
@ -37,6 +37,15 @@ sub do_wais {
|
||||||
$FORM_max = $in{"max"};
|
$FORM_max = $in{"max"};
|
||||||
$FORM_docnum = $in{"docnum"};
|
$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);
|
@AVAIL_source = &checksource(@FORM_source);
|
||||||
if ($#FORM_source != $#AVAIL_source) {
|
if ($#FORM_source != $#AVAIL_source) {
|
||||||
$j = 0;
|
$j = 0;
|
||||||
|
|
Loading…
Reference in a new issue