diff options
author | Yorhel <git@yorhel.nl> | 2008-12-01 21:32:01 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-12-01 21:32:01 +0100 |
commit | 531db3e8ddc8523df730a3412fe6ccee21a71259 (patch) | |
tree | 939d943c9b2a0cc803a49db52b0e733ed1b1927e /lib/VNDB/DB | |
parent | 3f747b5fce24fad0635be727c431e1fb234c3fa6 (diff) |
Interface for the advanced VN search feature
We're getting there...
Diffstat (limited to 'lib/VNDB/DB')
-rw-r--r-- | lib/VNDB/DB/Misc.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm index a58534c6..9ebac75f 100644 --- a/lib/VNDB/DB/Misc.pm +++ b/lib/VNDB/DB/Misc.pm @@ -6,7 +6,7 @@ use warnings; use Exporter 'import'; our @EXPORT = qw| - dbStats dbRevisionInsert dbItemInsert dbRevisionGet dbItemMod + dbStats dbRevisionInsert dbItemInsert dbRevisionGet dbItemMod dbLanguages |; @@ -151,6 +151,21 @@ sub dbItemMod { } +# Returns a list of languages actually in use +sub dbLanguages { + my $self = shift; + return [ + map $_->{language}, @{$self->dbAll(q| + SELECT DISTINCT rr.language + FROM releases r + JOIN releases_rev rr ON rr.id = r.latest + WHERE r.hidden = FALSE| + )} + ]; +} + + + 1; |