Changeset 3472 for extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm

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.

File:

• extensions/pLoader/trunk/src/Uploader/PWG/WebServices.pm (modified) (6 diffs)

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

@@ -43 +43 @@
            qry_list_categories
            qry_add_categories
+           qry_list_tags
            items
            tags
@@ -50 +51 @@
            site_thumb_file
            site_image_name
+           site_tags
            rank
            site_author
@@ -105 +107 @@
     );
 
+    $self->qry_list_tags( sprintf
+        "%s/ws.php?format=json&method=%s",
+        $self->urlbase,
+        'pwg.tags.getAdminList',
+    );
+
+
     my $form = {
         method => 'pwg.session.login',
@@ -170 +179 @@
     $categories;        
 }
+
+sub GetTags {
+    my ( $self ) = @_;
+
+    my $result;
+    eval {
+        $result = $self->uagent->get(
+            $self->qry_list_tags
+        );
+    };
+
+    if($@){
+        printf("An error occured in query execution %s\n%s",
+            $self->qry_list_tags,
+            $@,
+        );      
+    }
+    my $hresult;
+    
+    eval {
+        $hresult = from_json(
+            $result->content
+        );
+    };
+    
+    $hresult ||= {};
+
+    $hresult->{result}{tags};
+}
+
 
 sub UploadImage {
@@ -256 +295 @@
                 comment           => $self->site_comment,
                 date_creation     => $self->site_img_date_creation,
+                tag_ids           => $self->site_tags,
                 
             };
@@ -286 +326 @@
                 comment           => $self->site_comment,
                 date_creation     => $self->site_img_date_creation,
+                tag_ids           => $self->site_tags,
             };
         }