diff options
-rwxr-xr-x | www/index.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/www/index.pl b/www/index.pl index bae9149..0df8980 100755 --- a/www/index.pl +++ b/www/index.pl @@ -986,13 +986,13 @@ sub dbSearch { sub dbManPref { my($s, %o) = @_; my %where = ( - $o{name} ? ('m.name = ?' => $o{name}) : (), - $o{shorthash} ? (q{substring(m.hash from 1 for 4) = decode(?, 'hex')} => $o{shorthash}) : (), - $o{section} ? ('m.section LIKE ?' => escape_like($o{section}).'%') : (), - $o{sysid} ? ('p.system = ?' => $o{sysid}) : (), - $o{package} ? ('p.id = ?' => $o{package}) : (), - $o{pkgver} ? ('v.id = ?' => $o{pkgver}) : (), - $o{language}? (q{substring(locale from '^[^.]+') = ?} => $o{language}) : (), + length $o{name} ? ('m.name = ?' => $o{name}) : (), + $o{shorthash} ? (q{substring(m.hash from 1 for 4) = decode(?, 'hex')} => $o{shorthash}) : (), + length $o{section} ? ('m.section LIKE ?' => escape_like($o{section}).'%') : (), + $o{sysid} ? ('p.system = ?' => $o{sysid}) : (), + $o{package} ? ('p.id = ?' => $o{package}) : (), + $o{pkgver} ? ('v.id = ?' => $o{pkgver}) : (), + $o{language} ? (q{substring(locale from '^[^.]+') = ?} => $o{language}) : (), ); # Criteria to determine a "preferred" man page: |