}
sub _recent_uploads { Memories::Photo->search_recent() }
}
sub _recent_uploads { Memories::Photo->search_recent() }
+sub _random { Memories::Photo->search_random() }
sub recent_uploads { shift->do_cached(\&_recent_uploads) }
sub recent_uploads { shift->do_cached(\&_recent_uploads) }
+sub random { shift->do_cached(\&_random) }
sub tagcloud { shift->do_cached(\&_tagcloud) }
sub _tagcloud {
sub tagcloud { shift->do_cached(\&_tagcloud) }
sub _tagcloud {
my %order_by = (
recent => "uploaded",
popular => "hit_count",
my %order_by = (
recent => "uploaded",
popular => "hit_count",
- interesting => INTERESTINGNESS_ALGORITHM
+ interesting => INTERESTINGNESS_ALGORITHM,
+ random => "rand()"
);
while (my($label, $how) = each %order_by) {
);
while (my($label, $how) = each %order_by) {