package Memories::Photo;
-use Apache2::Upload;
+#use Apache2::Upload;
use File::Basename;
use File::Copy;
use Archive::Any;
}
$r->objects(\@photos);
if (@photos == 0) { $r->template("upload"); return }
- if (@photos > 1) { $r->template("list") }
+ if (@photos > 1) { $r->template_args->{title} = "This upload"; $r->template("paged") }
else { $r->template("view"); }
$r->message("Thanks for the upload!");
}
}
$r->{session}{quarantined} = join ",", sort keys %q;
if (!$r->{session}{quarantined}) {
- $r->template("list");
+ $r->template_args->{title} = "This upload"; $r->template("paged");
$r->objects([ map { $self->retrieve($_) } @quarantined ]);
} else {
$r->objects([ map { $self->retrieve($_) } sort keys %q ]);
$filename =~ /\.(.*)$/;
my $format = $1;
# Put the file in place
+ my $photo = $self->upload_jpeg($r, $jpg, $offered_name);
$photo->format($format);
copy($filename,
Memories->config->{data_store}."/".$photo->id.".".$format);
- my $photo = $self->upload_jpeg($r, $jpg, $offered_name);
return $photo;
}
sub tagedit :Exported {}
sub similar :Exported {}
sub sized :Exported {}
+sub delete :Exported {
+ my ($self, $r, $photo) = @_;
+ if ($photo and $photo->uploader == $r->user) {
+ $photo->delete;
+ $r->message("Photo deleted!");
+ }
+ $r->template("frontpage");
+}
use Class::DBI::Plugin::Pager;
use Class::DBI::Plugin::AbstractCount;