Changeset 50
- Timestamp:
- 03/24/07 15:49:00 (1 year ago)
- Files:
-
- trunk/Memories/Photo.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/Memories/Photo.pm
r49 r50 125 125 my $jpg = tmpnam().".jpg"; 126 126 system("dcraw -c $filename | convert - $jpg"); 127 my $photo = $self->upload_jpeg($r, $jpg, $offered_name);128 127 $filename =~ /\.(.*)$/; 129 128 my $format = $1; 129 # Put the file in place 130 130 $photo->format($format); 131 # Put the file in place132 131 copy($filename, 133 132 Memories->config->{data_store}."/".$photo->id.".".$format); 133 my $photo = $self->upload_jpeg($r, $jpg, $offered_name); 134 134 return $photo; 135 135 }
