From: Simon Cozens <simon@simon-cozens.org>
Date: Sat, 10 Feb 2007 12:12:55 +0000 (+0000)
Subject: Search by random.
X-Git-Tag: 1.2+svn20070808~46
X-Git-Url: https://git.decadent.org.uk/gitweb/?p=memories.git;a=commitdiff_plain;h=79a133c5b5ef5e8a4879a8bfaaf43fc119be7631

Search by random.


git-svn-id: http://svn.simon-cozens.org/memories/trunk@22 041978f6-d955-411f-a9d7-1d8545c9c3c7
---

diff --git a/Memories.pm b/Memories.pm
index e399e76..7027b09 100644
--- a/Memories.pm
+++ b/Memories.pm
@@ -113,8 +113,10 @@ sub do_cached {
 }
 
 sub _recent_uploads { Memories::Photo->search_recent() }
+sub _random { Memories::Photo->search_random() }
 
 sub recent_uploads { shift->do_cached(\&_recent_uploads) }
+sub random { shift->do_cached(\&_random) }
 sub tagcloud { shift->do_cached(\&_tagcloud) }
 
 sub _tagcloud {
diff --git a/Memories/Photo.pm b/Memories/Photo.pm
index 5a9b91e..5af62e9 100644
--- a/Memories/Photo.pm
+++ b/Memories/Photo.pm
@@ -14,7 +14,8 @@ BEGIN {
 my %order_by = (
      recent => "uploaded",
      popular => "hit_count",
-     interesting => INTERESTINGNESS_ALGORITHM
+     interesting => INTERESTINGNESS_ALGORITHM,
+     random => "rand()"
 );
 
 while (my($label, $how) = each %order_by) {