diff options
| author | Yorhel <git@yorhel.nl> | 2009-03-15 12:22:45 +0100 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2009-03-15 12:28:03 +0100 |
| commit | c340b5db420144fc8f34d0c7cfb4ded1bdfbb1d4 (patch) | |
| tree | 9bbe43abc3bf28c397c972b0f83af0ffb0020007 /lib/VNDB/DB/Tags.pm | |
| parent | 660b78f2079387fd1b34def7ff4dcaaaba09b05c (diff) | |
Some more content on the tag index
Diffstat (limited to 'lib/VNDB/DB/Tags.pm')
| -rw-r--r-- | lib/VNDB/DB/Tags.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Tags.pm b/lib/VNDB/DB/Tags.pm index 964a63b7..17a65754 100644 --- a/lib/VNDB/DB/Tags.pm +++ b/lib/VNDB/DB/Tags.pm @@ -8,7 +8,7 @@ use Exporter 'import'; our @EXPORT = qw|dbTagGet dbTagTree dbTagEdit dbTagAdd dbTagMerge dbTagLinks dbTagLinkEdit dbTagStats dbTagVNs|; -# %options->{ id noid name search state page results order what } +# %options->{ id noid name search state meta page results order what } # what: parents childs(n) aliases sub dbTagGet { my $self = shift; @@ -35,6 +35,8 @@ sub dbTagGet { 't.state <> 1' => 1 ) : (), $o{search} ? ( 't.id IN (SELECT id FROM tags LEFT JOIN tags_aliases ON id = tag WHERE name ILIKE ? OR alias ILIKE ?)' => [ "%$o{search}%", "%$o{search}%" ] ) : (), + defined $o{meta} ? ( + 't.meta = ?' => $o{meta}?1:0 ) : (), ); my($r, $np) = $self->dbPage(\%o, q| |