Changeset 3472


Ignore:
Timestamp:
06/28/09 19:58:18 (11 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.