use File::Basename;
use File::Copy;
use Archive::Any;
use File::Basename;
use File::Copy;
use Archive::Any;
$filename =~ /\.(.*)$/;
my $format = $1;
# Put the file in place
$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);
$photo->format($format);
copy($filename,
Memories->config->{data_store}."/".$photo->id.".".$format);
- my $photo = $self->upload_jpeg($r, $jpg, $offered_name);