my ($self, $r, $filename, $offered_name) = @_;
my $jpg = tmpnam().".jpg";
system("dcraw -c $filename | convert - $jpg");
- my $photo = $self->upload_jpeg($r, $jpg, $offered_name);
$filename =~ /\.(.*)$/;
my $format = $1;
- $photo->format($format);
# Put the file in place
+ $photo->format($format);
copy($filename,
Memories->config->{data_store}."/".$photo->id.".".$format);
+ my $photo = $self->upload_jpeg($r, $jpg, $offered_name);
return $photo;
}