improved logic
parent
4286cbd5c2
commit
9922c37d73
|
@ -487,13 +487,14 @@ sub cgi () { #{{{
|
||||||
|
|
||||||
my $q=CGI->new;
|
my $q=CGI->new;
|
||||||
|
|
||||||
if (defined $q->param('phrase')) {
|
|
||||||
cgi_hyperestraier();
|
|
||||||
}
|
|
||||||
|
|
||||||
my $do=$q->param('do');
|
my $do=$q->param('do');
|
||||||
if (! defined $do || ! length $do) {
|
if (! defined $do || ! length $do) {
|
||||||
error("\"do\" parameter missing");
|
if (defined $q->param('phrase')) {
|
||||||
|
cgi_hyperestraier();
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
error("\"do\" parameter missing");
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
# Things that do not need a session.
|
# Things that do not need a session.
|
||||||
|
|
Loading…
Reference in New Issue