Changeset 5472


Ignore:
Timestamp:
03/30/10 14:29:37 (10 years ago)
Author:
ronosman
Message:

Feature 1554 added : use caption as prefix.

Location:
extensions/pLoader/trunk
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • extensions/pLoader/trunk/locale/fr_FR/pLoader.po

    r5133 r5472  
    673673msgid "Remove selected photos" 
    674674msgstr "Enlever les photos sélectionnées" 
     675 
     676msgid "Default caption pattern" 
     677msgstr "Format de titre par défaut" 
     678 
     679msgid "Default caption" 
     680msgstr "Titre par défaut" 
     681 
     682msgid "Caption + rank number" 
     683msgstr "Titre + N° d'ordre" 
     684 
     685msgid "Rank number + caption" 
     686msgstr "N° d'ordre + titre" 
     687 
     688msgid "Caption + create date chrono" 
     689msgstr "Titre + chrono date de création" 
     690 
     691msgid "Create date chrono + caption" 
     692msgstr "Chrono date de création + titre" 
     693 
     694msgid "Create date chrono + rank" 
     695msgstr "Chrono date de création + N° d'ordre" 
     696 
     697msgid "Rank + create date chrono" 
     698msgstr "N° d'ordre + chrono date de création" 
     699 
     700msgid "Preferences" 
     701msgstr "Préférences" 
     702 
     703msgid "Selection" 
     704msgstr "Sélection" 
  • extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm

    r5447 r5472  
    305305                    $self->imagelist->current_image->site_name; 
    306306                }, 
    307                 pre_process => sub { sub { $self->imagelist->GetCurrentImageDefaultName(@_); } }, 
     307                pre_process => sub { sub { $self->imagelist->GetCurrentImageCaption(@_); } }, 
    308308                choices => 
    309309                [ 
    310                     map { gettext $_ } @{wxTheApp->default_photo_names} 
     310                    map { gettext $_ } @{wxTheApp->caption_patterns} 
    311311                ], 
    312312                frame_callback => sub { $self->imageviewer_item_refresh(1); }, 
     
    361361    $self->global_settings( 
    362362        { 
    363             $main::DEFAULT_PHOTO_CAPTION => { label => gettext("Default photo caption") }, 
     363            $main::DEFAULT_PHOTO_CAPTION => { label => gettext("Default caption pattern") }, 
    364364            $main::CPANE_RESIZE_ADVANCED => { label => gettext("Advanced") }, 
    365365            $main::CPANE_HD_ADVANCED => { label => gettext("Advanced") }, 
     
    370370            $main::GS_CLOSE => { label => gettext("Close")}, 
    371371            $main::GS_DEFAULT_PHOTO_CAPTION => { 
    372                 string_selection => sub { $self->imagelist->default_photo_name(@_) }, 
     372                string_selection => sub { $self->imagelist->default_caption_pattern(@_) }, 
    373373                choices => 
    374374                [ 
    375                     map { gettext $_ } @{wxTheApp->default_photo_names} 
     375                    map { gettext $_ } @{wxTheApp->caption_patterns} 
    376376                ], 
    377                 pre_process => sub { my ( $value ) = @_; wxTheApp->eng_default_photo_names->{$value} }, 
     377                pre_process => sub { my ( $value ) = @_; wxTheApp->eng_caption_patterns->{$value} }, 
    378378                frame_callback => sub {  
    379379                    my( $self, $ctrl, $event ) = @_;  
     
    381381                }, 
    382382            }, 
    383             $main::PHOTO_CAPTION_PREFIX => { label => gettext("Photo caption  prefix") }, 
     383            $main::PHOTO_CAPTION_PREFIX => { label => gettext("Default caption") }, 
    384384            $main::GS_PHOTO_CAPTION_PREFIX => { 
    385                 value => sub { $self->imagelist->default_name_prefix(@_) }, 
     385                value => sub { $self->imagelist->default_caption(@_) }, 
    386386            }, 
    387387            $main::GS_AUTO_ROTATE => { 
     
    895895 
    896896 
    897 sub OnDefaultPhotoNameChanged { 
    898     my ( $self ) = @_; 
    899      
    900     Wx::LogMessage("New default_photo_name %s", $self->imagelist->default_photo_name);     
    901 } 
    902  
    903  
    904897sub OnGeneralSettingsClose { 
    905898    my ( $self, $event ) = @_; 
     
    10731066    Wx::Event::EVT_BUTTON( $self, $main::PHOTO_PROPERTIES_UPLOAD, \&OnUploadImages ); 
    10741067    Wx::Event::EVT_BUTTON( $self, $self->imageviewer->add_button->GetId, \&OnAddImages ); 
    1075  
     1068    Wx::Event::EVT_KEY_DOWN($self, \&OnKeyDown ); 
    10761069 
    10771070    # only refresh when calling event is finished 
     
    15131506 
    15141507} 
     1508 
    15151509 
    15161510sub OnUploadImages { 
  • extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm

    r5041 r5472  
    105105          positions 
    106106          eng_positions 
    107           default_photo_names 
    108           eng_default_photo_names 
     107          caption_patterns 
     108          eng_caption_patterns 
    109109          upload_hd 
    110110          eng_upload_hd 
     
    173173    # to check if we can use stored cache 
    174174    $self->imagelist_version( 
    175         '13' 
     175        '15' 
    176176    ); 
    177177    $self->argv( 
     
    364364    ); 
    365365         
    366     $self->default_photo_names( 
     366    $self->caption_patterns( 
    367367        [ 
    368368             'None', 
    369369             'File name', 
    370370             'File path and name', 
    371              'Prefix', 
    372              'Prefix + rank number', 
    373              'Rank number + prefix', 
    374              'Prefix + create date chrono', 
    375              'Create date chrono + prefix', 
     371             'Caption', 
     372             'Caption + rank number', 
     373             'Rank number + caption', 
     374             'Caption + create date chrono', 
     375             'Create date chrono + caption', 
     376             'Create date chrono + rank', 
     377             'Rank + create date chrono', 
    376378        ] 
    377379    ); 
    378     $self->eng_default_photo_names( 
     380    $self->eng_caption_patterns( 
    379381        { 
    380              map { gettext($_) => $_ } @{$self->default_photo_names}  
     382             map { gettext($_) => $_ } @{$self->caption_patterns}  
    381383        } 
    382384    ); 
     
    619621        storable_file    => $self->storable_file, 
    620622        userdata_dir     => $self->userdata_dir, 
    621         default_photo_name => $self->user_defined_properties->{default_photo_name}||'File name', 
    622         default_name_prefix => $self->user_defined_properties->{default_name_prefix}||gettext('Photo '), 
     623        default_caption_pattern => $self->user_defined_properties->{default_caption_pattern}||'File name', 
     624        default_caption  => $self->user_defined_properties->{default_caption}||gettext('Photo '), 
    623625        upload_rejects   =>  [], 
    624626        image_sums       => {}, 
  • extensions/pLoader/trunk/src/Uploader/GUI/wxGlobalSettings.pm

    r5133 r5472  
    169169    if('CODE' eq ref $self->properties->{$id}->{string_selection}){ 
    170170        if ( $self->properties->{$id} 
    171             ->{string_selection}->() =~ /refix/ ){ 
     171            ->{string_selection}->() =~ /caption/i ){ 
    172172            $b=1; 
    173173        } 
  • extensions/pLoader/trunk/src/Uploader/Image.pm

    r5020 r5472  
    4141                height 
    4242                privacy_level 
     43        caption 
    4344    / 
    4445); 
  • extensions/pLoader/trunk/src/Uploader/ImageList.pm

    r5457 r5472  
    6868                progress_msg 
    6969                last_error_msg 
    70                 default_photo_name 
    71                 default_photo_name_method 
    72                 default_name_prefix 
     70                default_caption 
     71                default_caption_pattern 
    7372                SetNewFilesViewerRefreshCallback 
    7473                SetNewFilesProgressCallback 
     
    320319                file              => $file->{ANSIPathName}, 
    321320                file_sum          => $sum, 
    322                 site_name         => $self->_default_photo_name($file->{PathName}, $info, $i), 
     321                site_name         => $self->init_default_caption($file->{PathName}, $info, $i), 
     322                caption           => $self->default_caption, 
    323323                site_author       => $self->author, 
    324324                exif_metadata     => $self->_select_exif_data($info), 
     
    342342} 
    343343 
    344 sub GetCurrentImageDefaultName { 
    345     my ( $self, $index, $pattern ) = @_; 
    346  
    347     $pattern = wxTheApp->eng_default_photo_names->{$pattern}; 
    348  
    349     $self->SetCurrentImage($index); 
    350  
    351     my $img = $self->current_image; 
    352  
    353     $self->_photo_name_from_pattern( 
    354         $img->file, 
    355         $img->create_date, 
    356         $index, 
    357         $pattern 
    358     ); 
    359 } 
    360  
    361 sub _default_photo_name { 
     344 
     345sub init_default_caption { 
    362346    my ( $self, $file, $info, $i ) = @_; 
    363347 
    364348    my $create_date = $info->{CreateDate}; 
    365      
    366      
    367     $self->_photo_name_from_pattern($file, $create_date, $i, $self->default_photo_name); 
    368 } 
    369  
    370  
    371 sub _photo_name_from_pattern { 
    372     my ( $self, $file, $create_date, $i, $pattern ) = @_; 
     349 
     350    $self->init_caption_from_pattern( 
     351        $file, 
     352        $create_date, 
     353        $i, 
     354        $self->default_caption, 
     355        $self->default_caption_pattern 
     356    ); 
     357} 
     358 
     359 
     360sub init_caption_from_pattern { 
     361    my ( $self, $file, $create_date, $i, $caption, $pattern ) = @_; 
    373362 
    374363    my ( $yyyy, $mm, $dd, $hh, $mi, $ss ) = split /[:\s]/, $create_date ; 
     
    376365    my $chrono = join('', $yyyy, $mm, $dd); 
    377366 
    378     my $name; 
     367    my $caption_from_pattern; 
    379368    my $ext; 
    380369    my ( $vol, $path, $filename ) = File::Spec->splitpath($file); 
     
    382371     
    383372 
    384     if('Prefix' eq $pattern){ 
    385         $name = $self->default_name_prefix 
     373    if('Caption' eq $pattern){ 
     374        $caption_from_pattern = $caption 
    386375    } 
    387376    elsif('File name' eq $pattern){ 
    388         $name = $filename 
     377        $caption_from_pattern = $filename 
    389378    } 
    390379    elsif('File path and name' eq $pattern){ 
    391         $name = sprintf( 
     380        $caption_from_pattern = sprintf( 
    392381            "%s",  
    393382            File::Spec->catfile($path, $filename),  
    394383        )         
    395384    }     
    396     elsif('Prefix + rank number' eq $pattern){ 
    397         $name = sprintf( 
    398             "%s%s",  
    399             $self->default_name_prefix,  
     385    elsif('Caption + rank number' eq $pattern){ 
     386        $caption_from_pattern = sprintf( 
     387            "%s %s",  
     388            $caption,  
    400389            1+$i, 
    401390        )         
    402391    }     
    403     elsif('Rank number + prefix' eq $pattern){ 
    404         $name = sprintf( 
    405             "%s%s",  
     392    elsif('Rank number + caption' eq $pattern){ 
     393        $caption_from_pattern = sprintf( 
     394            "%s %s",  
    406395            1+$i, 
    407             $self->default_name_prefix,  
     396            $caption,  
    408397        )         
    409398    }     
    410     elsif('Prefix + create date chrono' eq $pattern){ 
    411         $name = sprintf( 
    412             "%s%s",  
    413             $self->default_name_prefix,  
     399    elsif('Caption + create date chrono' eq $pattern){ 
     400        $caption_from_pattern = sprintf( 
     401            "%s %s",  
     402            $caption,  
    414403            $chrono, 
    415404        )         
    416405    }     
    417     elsif('Create date chrono + prefix' eq $pattern){ 
    418         $name = sprintf( 
    419             "%s%s",  
     406    elsif('Create date chrono + caption' eq $pattern){ 
     407        $caption_from_pattern = sprintf( 
     408            "%s %s",  
    420409            $chrono, 
    421             $self->default_name_prefix,  
     410            $caption,  
    422411        )         
    423412    } 
    424  
    425     $name; 
     413    elsif('Create date chrono + rank' eq $pattern){ 
     414        $caption_from_pattern = sprintf( 
     415            "%s %s",  
     416            $chrono, 
     417            1+$i,  
     418        )         
     419    } 
     420    elsif('Rank + create date chrono' eq $pattern){ 
     421        $caption_from_pattern = sprintf( 
     422            "%s %s",  
     423            1+$i,  
     424            $chrono, 
     425        )         
     426    } 
     427 
     428    $caption_from_pattern; 
     429} 
     430 
     431 
     432sub GetCurrentImageCaption { 
     433    my ( $self, $index, $pattern ) = @_; 
     434 
     435    $pattern = wxTheApp->eng_caption_patterns->{$pattern}; 
     436 
     437    $self->SetCurrentImage($index); 
     438 
     439    my $img = $self->current_image; 
     440 
     441    $self->init_caption_from_pattern( 
     442        $img->file, 
     443        $img->create_date, 
     444        $index, 
     445        $self->current_image->caption, 
     446        $pattern 
     447    ); 
    426448} 
    427449 
     
    742764                userdata_dir 
    743765                progress_msg 
    744                 default_photo_name 
    745                 default_name_prefix 
     766                default_caption 
     767                default_caption_pattern 
    746768                upload_high 
    747769                upload_hd 
     
    15041526            else{ 
    15051527                $_name = $name; 
    1506                 $self->default_name_prefix($name); 
     1528                $self->GetImage($_)->caption( 
     1529                    $_name 
     1530                ) ; 
    15071531            } 
     1532 
    15081533            $self->image_selection_name($_name); 
    1509  
    15101534            $self->GetImage($_)->site_name( 
    15111535                $_name 
Note: See TracChangeset for help on using the changeset viewer.