From 531db3e8ddc8523df730a3412fe6ccee21a71259 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Mon, 1 Dec 2008 21:32:01 +0100
Subject: Interface for the advanced VN search feature

We're getting there...
---
 lib/VNDB/DB/Misc.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'lib/VNDB/DB/Misc.pm')

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;
 
-- 
cgit v1.2.3