my %order_by = (
recent => "uploaded",
popular => "hit_count",
- interesting => INTERESTINGNESS_ALGORITHM
+ loved => "rating/(1+rated)",
+ interesting => INTERESTINGNESS_ALGORITHM,
+ random => "rand()"
);
while (my($label, $how) = each %order_by) {
my ($self, $r) = @_;
my %upload = $r->upload("photo");
- # XXX Stop anonymous uploads!
my $photo = $self->create({
uploader => $r->user,
uploaded => Time::Piece->new(),