Changeset 5472


Ignore:
Timestamp:
Mar 30, 2010, 2:29:37 PM (11 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.