diff options
Diffstat (limited to 'lib/VNDB/DB/Misc.pm')
-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; |