Show some photos on the front page #11.

[memories.git] / Memories.pm

diff --git a/Memories.pm b/Memories.pm
index 7027b09e400e3f7c9cd7defd3d2984b5d0027760..efad269268d29b667f6d7e0e52d5c7ff3ff394fb 100644 (file)
--- a/Memories.pm
+++ b/Memories.pm
@@ -112,11 +112,13 @@ sub do_cached {
     return @stuff;
 }
 
-sub _recent_uploads { Memories::Photo->search_recent() }
-sub _random { Memories::Photo->search_random() }
+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 random { shift->do_cached(\&_random) }
 sub tagcloud { shift->do_cached(\&_tagcloud) }
 
 sub _tagcloud {