X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=Memories.pm;h=efad269268d29b667f6d7e0e52d5c7ff3ff394fb;hb=d82c04ad8284377640baac802ce54fa811fc514a;hp=e399e764040d3ad8f2506e78eb1bf5f52a8e6eb5;hpb=a8aa82f95702eaf4595205989f7333babc8fcd3c;p=memories.git

diff --git a/Memories.pm b/Memories.pm
index e399e76..efad269 100644
--- a/Memories.pm
+++ b/Memories.pm
@@ -112,9 +112,13 @@ sub do_cached {
     return @stuff;
 }
 
-sub _recent_uploads { Memories::Photo->search_recent() }
+for my $how (qw(random recent interesting popular)) {
+    no strict;
+    my $method = "search_$how";
+    *{"_$how"} = sub { Memories::Photo->$method };
+    *{$how} = sub { shift->do_cached(\&{"_$how"})};
+}
 
-sub recent_uploads { shift->do_cached(\&_recent_uploads) }
 sub tagcloud { shift->do_cached(\&_tagcloud) }
 
 sub _tagcloud {