sub tagedit :Exported {}
sub similar :Exported {}
sub sized :Exported {}
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;
use Class::DBI::Plugin::Pager;
use Class::DBI::Plugin::AbstractCount;