www: Don't throw an error on empty search query

(Not that the current page is much better)
This commit is contained in:
Yorhel 2024-05-01 17:02:08 +02:00
parent cd5d2c6a20
commit 3bf860f54e

View file

@ -611,7 +611,7 @@ TUWF::get '/browse/search' => sub {
# Redirect if we have an exact match # Redirect if we have an exact match
my @sectsql = length $sect ? ('AND section =', \$sect) : (); my @sectsql = length $sect ? ('AND section =', \$sect) : ();
my $man = length $name && tuwf->dbRowi('SELECT name, section FROM mans WHERE name =', \$name, @sectsql); my $man = length $name && tuwf->dbRowi('SELECT name, section FROM mans WHERE name =', \$name, @sectsql);
return tuwf->resRedirect("/man/$man->{name}".(length $sect ? ".$man->{section}" : ''), 'temp') if length $man->{name}; return tuwf->resRedirect("/man/$man->{name}".(length $sect ? ".$man->{section}" : ''), 'temp') if $man && length $man->{name};
# Otherwise, do case-insensitive glob search # Otherwise, do case-insensitive glob search
my $nameq = escape_like(lc $name) =~ tr/?*/_%/r; my $nameq = escape_like(lc $name) =~ tr/?*/_%/r;