Interface for the advanced VN search feature

We're getting there...

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;