Random quote feature

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/VNDB/DB/Misc.pm b/lib/VNDB/DB/Misc.pm
index 14ef45ac..c13a38d2 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 dbLanguages
+  dbStats dbRevisionInsert dbItemInsert dbRevisionGet dbItemMod dbLanguages dbRandomQuote
 |;
 
 
@@ -173,6 +173,16 @@ sub dbLanguages {
 }
 
 
+# Returns a random quote (hashref with keys = vid, quote)
+sub dbRandomQuote {
+  return $_[0]->dbRow(q|
+    SELECT vid, quote
+      FROM quotes
+      ORDER BY RANDOM()
+      LIMIT 1|);
+}
+
+
 
 
 1;