From e1835977fea7be42b702275ac88e69921d82777d Mon Sep 17 00:00:00 2001 From: Yorhel Date: Sun, 25 Jan 2009 12:30:50 +0100 Subject: Random quote feature --- lib/VNDB/DB/Misc.pm | 12 +++++++++++- 1 file changed, 11 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 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; -- cgit v1.2.3