Changeset 54

Show
Ignore:
Timestamp:
04/02/07 18:50:54 (1 year ago)
Author:
simon
Message:

Make it all at least work.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/Memories/Photo.pm

    r53 r54  
    11package Memories::Photo; 
    2 use Apache2::Upload; 
     2#use Apache2::Upload; 
    33use File::Basename; 
    44use File::Copy; 
    …… 
    129129    my $format = $1; 
    130130    # Put the file in place 
     131    my $photo = $self->upload_jpeg($r, $jpg, $offered_name); 
    131132    $photo->format($format); 
    132133    copy($filename,  
    133134         Memories->config->{data_store}."/".$photo->id.".".$format); 
    134     my $photo = $self->upload_jpeg($r, $jpg, $offered_name); 
    135135    return $photo; 
    136136}