Changeset 3472 for extensions/pLoader/trunk/src/Uploader/ImageList.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/ImageList.pm (modified) (3 diffs)

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

@@ -143 +143 @@
 }
 
-sub _set_current_image_filepaths__ {
-    my ( $self ) = @_;
-
-    my ( $vol, $dir, $file ) = File::Spec->splitpath(
-        $self->current_image->file
-    );
-
-    my ( $filename, $ext ) = split /\./, $file ;
-    
-
-    $self->current_image->wx_thumb_file( 
-        File::Spec->catfile(
-            $self->wx_thumb_dir,
-            sprintf(
-                "%s.%s",
-                $filename,
-                $self->type,
-            )
-        )
-    );
-
-    $self->current_image->preview_file( 
-        File::Spec->catfile(
-            $self->preview_dir,
-            sprintf(
-                "%s.%s",
-                $filename,
-                $self->type,
-            )
-        )
-    );
-    $self->current_image->preview_file( 
-        encode('iso-8859-1', $self->current_image->preview_file)
-    );
-
-    $self->current_image->site_thumb_file( 
-        File::Spec->catfile(
-            $self->site_thumb_dir,
-            sprintf(
-                "%s.%s",
-                $filename,
-                $self->type,
-            )
-        )
-    );
-
-}
 
 sub _set_current_image_filepaths {
@@ -901 +854 @@
         my $site_name = $self->current_image->site_name;
     
-#        my ( $filename, $ext ) = split /\./, $file ;
         my $filename = $self->current_image->file_sum ;
 
@@ -1176 +1128 @@
     );
 
-    $self->pwg->tags(
-        #join(',', @{$self->current_image->site_tags})
+    $self->pwg->site_tags(
+        join(',', @{$self->current_image->site_tags})
     );