my $mm = File::MMagic->new;
my $res = $mm->checktype_filename($filename);
warn "$filename is a $res\n";
my $mm = File::MMagic->new;
my $res = $mm->checktype_filename($filename);
warn "$filename is a $res\n";
return $self->upload_archive($r, $filename);
} elsif ($res =~ m{image/jpeg}) {
return $self->upload_jpeg($r, $filename, $offered_name);
return $self->upload_archive($r, $filename);
} elsif ($res =~ m{image/jpeg}) {
return $self->upload_jpeg($r, $filename, $offered_name);
for (keys %params) {
next unless /delete_(\d+)/;
my $tagging = Memories::Tagging->retrieve($1) or next;
next unless $tagging->photo->id == $photo->id;
for (keys %params) {
next unless /delete_(\d+)/;
my $tagging = Memories::Tagging->retrieve($1) or next;
next unless $tagging->photo->id == $photo->id;
$photo->add_tags($params{newtags});
$r->template("view");
}
sub add_tags {
my ($photo, $tagstring) = @_;
$photo->add_tags($params{newtags});
$r->template("view");
}
sub add_tags {
my ($photo, $tagstring) = @_;