summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xwww/index.pl14
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: