Changeset 3472


Ignore:
Timestamp:
Jun 28, 2009, 7:58:18 PM (15 years ago)
Author:
ronosman
Message:

Feature 993 added : set Piwigo tags. Only existing tags are supported.

Location:
extensions/pLoader/trunk/src/Uploader
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed

  • extensions/pLoader/trunk/src/Uploader/GUI/wxApp.pm

    r3467 r3472  
    646646                branding       => $self->branding,
    647647                chunk_size     => $self->chunk_size,
     648                use_offline    => $self->use_offline,
    648649            }
    649650        )
    650651    );
    651    
     652
    652653    $rval;
    653654}

  • extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

    r3467 r3472  
    324324          image_prop_piwigo
    325325          image_prop_exif
     326          image_prop_tags
    326327          notebook_image_properties
    327328          notebook_global_settings
    … …  
    346347          imageviewer_select_multi
    347348          frameLayout
     349          piwigo_tags
     350          image_tags
    348351      /;
    349352__PACKAGE__->mk_accessors( @properties );
    … …  
    366369use Uploader::GUI::wxImageListCtrl;
    367370use Uploader::GUI::wxImageProcessingProgressDlg;
     371use Uploader::GUI::wxChoiceGridPanel;
    368372use Wx::Html;
    369373use Uploader::GUI::wxHtmlWindow;
    … …  
    576580        ]
    577581    );   
     582
    578583
    579584    $self->general_settings(
    … …  
    711716        ]   
    712717    );
    713        
     718
     719    $self->image_tags(
     720        sub { $self->imagelist->current_image->site_tags(@_) }
     721    );
     722
     723    $self->piwigo_tags(
     724        wxTheApp->pwg->tags||[]
     725    ); 
    714726}
    715727
    … …  
    725737        $self->image_prop_piwigo,
    726738        $self->image_prop_exif,
     739        $self->image_prop_tags,
    727740        $self->general_settings_panel,
    728741        $self->resized_settings_panel,
    … …  
    806819        $self->advanced_settings,
    807820    );   
     821
    808822       
    809823}
    … …  
    889903        )   
    890904    );   
     905
     906    $self->image_prop_tags(
     907        Uploader::GUI::wxChoiceGridPanel->new(
     908            {
     909                parentwnd    => $self,
     910                choices      => $self->piwigo_tags,
     911                selection    => $self->image_tags,
     912            }
     913        )   
     914    );   
     915
    891916   
    892917    $self->general_settings_panel->Show(0);
    … …  
    952977        )
    953978    );
    954     #$self->htmlhome->SetDropTarget(
    955     #    DNDImageListDropTarget->new(
    956     #        $self->imageviewer
    957     #    )
    958     #);
    959 
    960979
    961980    $self->tree->SetDropTarget(
    … …  
    11111130}
    11121131
     1132sub OnDefaultPhotoNameChanged {
     1133    my ( $self ) = @_;
     1134   
     1135    Wx::LogMessage("New default_photo_name %s", $self->imagelist->default_photo_name); 
     1136}
     1137
    11131138
    11141139sub create_notebook_imagelist {
    … …  
    11391164            $self->image_prop_piwigo,
    11401165            "Piwigo",
     1166        ],
     1167        [
     1168            $self->image_prop_tags,
     1169            "Tags",
    11411170        ],
    11421171        [
    … …  
    17461775    $self->image_prop_piwigo->Refresh;
    17471776    $self->image_prop_exif->Refresh;
     1777    $self->image_prop_tags->Refresh;
    17481778
    17491779}
    … …  
    18691899
    18701900    if(!$self->imageviewer->IsShown){
    1871         #my $imglistpage = [
    1872         #    [
    1873         #        $self->imageviewer,
    1874         #        gettext("Photo selection"),
    1875         #        '../res/images.png',
    1876         #        wxBITMAP_TYPE_PNG,
    1877         #    ],
    1878         #];
    1879         #$self->notebook->DeletePage(0);
    1880    
    18811901        $self->imageviewer->Show(1);
    1882         #$self->_populate_notebook($self->notebook, $imglistpage, 0);
    1883         # load imagelist with loading.jpg
    18841902    }
    1885        
    18861903}
    18871904

  • extensions/pLoader/trunk/src/Uploader/ImageList.pm

    r3451 r3472  
    143143}
    144144
    145 sub _set_current_image_filepaths__ {
    146     my ( $self ) = @_;
    147 
    148     my ( $vol, $dir, $file ) = File::Spec->splitpath(
    149         $self->current_image->file
    150     );
    151 
    152     my ( $filename, $ext ) = split /\./, $file ;
    153    
    154 
    155     $self->current_image->wx_thumb_file(
    156         File::Spec->catfile(
    157             $self->wx_thumb_dir,
    158             sprintf(
    159                 "%s.%s",
    160                 $filename,
    161                 $self->type,
    162             )
    163         )
    164     );
    165 
    166     $self->current_image->preview_file(
    167         File::Spec->catfile(
    168             $self->preview_dir,
    169             sprintf(
    170                 "%s.%s",
    171                 $filename,
    172                 $self->type,
    173             )
    174         )
    175     );
    176     $self->current_image->preview_file(
    177         encode('iso-8859-1', $self->current_image->preview_file)
    178     );
    179 
    180     $self->current_image->site_thumb_file(
    181         File::Spec->catfile(
    182             $self->site_thumb_dir,
    183             sprintf(
    184                 "%s.%s",
    185                 $filename,
    186                 $self->type,
    187             )
    188         )
    189     );
    190 
    191 }
    192145
    193146sub _set_current_image_filepaths {
    … …  
    901854        my $site_name = $self->current_image->site_name;
    902855   
    903 #        my ( $filename, $ext ) = split /\./, $file ;
    904856        my $filename = $self->current_image->file_sum ;
    905857
    … …  
    11761128    );
    11771129
    1178     $self->pwg->tags(
    1179         #join(',', @{$self->current_image->site_tags})
     1130    $self->pwg->site_tags(
     1131        join(',', @{$self->current_image->site_tags})
    11801132    );
    11811133       

  • extensions/pLoader/trunk/src/Uploader/PWG.pm

    r3285 r3472  
    3838           http_password
    3939           branding
     40           use_offline
    4041      /
    4142);
    … …  
    4950    # for web services   
    5051    $self->SUPER::Init();
    51    
    52     $self->RefreshCategories;   
    5352
     53    if(!$self->use_offline){
     54        $self->RefreshCategories;       
     55        $self->RefreshTags;
     56    }
    5457}
    5558
    … …  
    6467}
    6568
     69sub RefreshTags {
     70    my ( $self ) = @_;
     71
     72    $self->tags(
     73        $self->GetTags
     74    );
     75}
     76
    6677
    67781;

  • extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm

    r3467 r3472  
    4343           qry_list_categories
    4444           qry_add_categories
     45           qry_list_tags
    4546           items
    4647           tags
    … …  
    5051           site_thumb_file
    5152           site_image_name
     53           site_tags
    5254           rank
    5355           site_author
    … …  
    105107    );
    106108
     109    $self->qry_list_tags( sprintf
     110        "%s/ws.php?format=json&method=%s",
     111        $self->urlbase,
     112        'pwg.tags.getAdminList',
     113    );
     114
     115
    107116    my $form = {
    108117        method => 'pwg.session.login',
    … …  
    170179    $categories;       
    171180}
     181
     182sub GetTags {
     183    my ( $self ) = @_;
     184
     185    my $result;
     186    eval {
     187        $result = $self->uagent->get(
     188            $self->qry_list_tags
     189        );
     190    };
     191
     192    if($@){
     193        printf("An error occured in query execution %s\n%s",
     194            $self->qry_list_tags,
     195            $@,
     196        );     
     197    }
     198    my $hresult;
     199   
     200    eval {
     201        $hresult = from_json(
     202            $result->content
     203        );
     204    };
     205   
     206    $hresult ||= {};
     207
     208    $hresult->{result}{tags};
     209}
     210
    172211
    173212sub UploadImage {
    … …  
    256295                comment           => $self->site_comment,
    257296                date_creation     => $self->site_img_date_creation,
     297                tag_ids           => $self->site_tags,
    258298               
    259299            };
    … …  
    286326                comment           => $self->site_comment,
    287327                date_creation     => $self->site_img_date_creation,
     328                tag_ids           => $self->site_tags,
    288329            };
    289330        }
Note: See TracChangeset for help on using the changeset viewer.