Changeset 3267


Ignore:
Timestamp:
05/05/09 20:14:43 (10 years ago)
Author:
ronosman
Message:

Feature 987 added: use filename or prefix to create a default photo name.

Location:
extras/pLoader/trunk/src/Uploader
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • extras/pLoader/trunk/src/Uploader/GUI/wxApp.pm

    r3232 r3267  
    322322     
    323323    $self->version( 
    324         '2.0.1b' 
     324        '2.0.2a' 
    325325    ); 
    326326     
    327327    # to check if we can use stored cache 
    328328    $self->imagelist_version( 
    329         '2' 
     329        '3' 
    330330    ); 
    331331 
     
    534534        storable_file    => $self->storable_file, 
    535535        userdata_dir     => $self->userdata_dir, 
     536        default_photo_name => gettext('File name'), 
    536537        default_name_prefix => 'Photo', 
    537538        upload_rejects   =>  [], 
  • extras/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

    r3227 r3267  
    548548            }, 
    549549            { 
     550                label     => gettext("Default photo name :"), 
     551                type      => 'Choice', 
     552                value   => sub { $self->imagelist->default_photo_name(@_) }, 
     553                choice  => [ 
     554                                  gettext('None'), 
     555                                  gettext('File name'), 
     556                                  gettext('File path and name'), 
     557                                  gettext('Prefix'), 
     558                                  gettext('Prefix + rank number'), 
     559                                  gettext('Rank number + prefix'), 
     560                                  gettext('Prefix + create date chrono'), 
     561                                  gettext('Create date chrono + prefix'), 
     562                              ], 
     563            }, 
     564            { 
    550565                label     => gettext("Photo name  prefix :"), 
    551566                value   => sub { $self->imagelist->default_name_prefix(@_) }, 
  • extras/pLoader/trunk/src/Uploader/GUI/wxPropertyGridPanel.pm

    r3222 r3267  
    201201    $self->properties->[$row]->{value}->($value); 
    202202 
    203     $self->properties->[$row]->{value}->($value); 
    204203     
    205204    # execute the corresponding frame callback 
  • extras/pLoader/trunk/src/Uploader/ImageList.pm

    r3241 r3267  
    3030use Digest::MD5::File qw/file_md5_hex md5_hex/; 
    3131use Encode qw/encode decode is_utf8/; 
     32use Wx::Locale qw/:default/; 
    3233 
    3334# this class implements a collection of image files with associated data 
     
    6263                progress_msg 
    6364                last_error_msg 
     65                default_photo_name 
     66                default_photo_name_method 
    6467                default_name_prefix 
    6568                SetNewFilesViewerRefreshCallback 
     
    9194 
    9295sub Init { 
    93     my ( $self ) = @_;   
     96    my ( $self ) = @_; 
     97     
     98     
    9499} 
    95100 
     
    310315    my $image; 
    311316    if ( !exists $self->image_sums->{$sum} ){ 
     317print "_add_image ", $file, "\n"; 
    312318        # append to image list 
    313319        $image = Uploader::Image->new( 
    314320        { 
    315                 file              => $_, 
     321                file              => $file, 
    316322                file_sum          => $sum, 
    317                 site_name         => sprintf( 
    318                                          "%s %s",  
    319                                          $self->default_name_prefix,  
    320                                          $i, 
    321                                      ), 
     323                site_name         => $self->_default_photo_name($file, $info, $i), 
    322324                site_author       => $self->author, 
    323325                exif_metadata     => $self->_select_exif_data($info), 
     
    336338 
    337339         
    338     #$self->images->[$i] = $image ; 
    339340    $self->sums->[$i] = $sum ; 
    340341 
    341342    $is_new_image; 
     343} 
     344 
     345 
     346sub _default_photo_name { 
     347    my ( $self, $file, $info, $i ) = @_; 
     348     
     349    my $name; 
     350    my $create_date = $info->{CreateDate}; 
     351    my $ext; 
     352    my ( $vol, $path, $filename ) = File::Spec->splitpath($file); 
     353    ( $filename, $ext ) = split /\.\w+$/, $filename; 
     354     
     355    my ( $yyyy, $mm, $dd, $hh, $mi, $ss ) = split /[:\s]/, $create_date ; 
     356   
     357    my $chrono = join('', $yyyy, $mm, $dd); 
     358    if(gettext('Prefix') eq $self->default_photo_name){ 
     359        $name = $self->default_name_prefix 
     360    } 
     361    elsif(gettext('File name') eq $self->default_photo_name){ 
     362        $name = $filename 
     363    } 
     364    elsif(gettext('File path and name') eq $self->default_photo_name){ 
     365        $name = sprintf( 
     366            "%s",  
     367            File::Spec->catfile($path, $filename),  
     368        )        
     369    }    
     370    elsif(gettext('Prefix + rank number') eq $self->default_photo_name){ 
     371        $name = sprintf( 
     372            "%s%s",  
     373            $self->default_name_prefix,  
     374            1+$i, 
     375        )        
     376    }    
     377    elsif(gettext('Rank number + prefix') eq $self->default_photo_name){ 
     378        $name = sprintf( 
     379            "%s%s",  
     380            1+$i, 
     381            $self->default_name_prefix,  
     382        )        
     383    }    
     384    elsif(gettext('Prefix + create date chrono') eq $self->default_photo_name){ 
     385        $name = sprintf( 
     386            "%s%s",  
     387            $self->default_name_prefix,  
     388            $chrono, 
     389        )        
     390    }    
     391    elsif(gettext('Create date chrono + prefix') eq $self->default_photo_name){ 
     392        $name = sprintf( 
     393            "%s%s",  
     394            $chrono, 
     395            $self->default_name_prefix,  
     396        )        
     397    }    
     398 
     399    $name;       
    342400} 
    343401 
     
    764822                userdata_dir 
    765823                progress_msg 
     824                default_photo_name 
    766825                default_name_prefix 
    767826                upload_high 
Note: See TracChangeset for help on using the changeset viewer.