Changeset 4086 for extensions/pLoader/trunk/src/Uploader/ImageList.pm

Timestamp:

Oct 22, 2009, 6:23:52 PM (15 years ago)

Author:

ronosman

Message:

bug 1201 fixed : pLoader crashes when path or filename contains unicode characters. All filename or path on windows must be ANSI converted when using perl file operators.

File:

• extensions/pLoader/trunk/src/Uploader/ImageList.pm (modified) (4 diffs)

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

@@ -204 +204 @@
 
     map {
-        my $info = $self->_read_exif_metatdata($_);
+        my $info = $self->_read_exif_metatdata($_->{ANSIPathName});
         my $is_new_image = $self->_add_image($_, $info, $i);    
         $self->SetCurrentImage($i);
@@ -269 +269 @@
     ) if !$self->image_sums;
 
-    my $sum = file_md5_hex($file);
+    my $sum = file_md5_hex($file->{ANSIPathName});
 
     my $image;
     if ( !exists $self->image_sums->{$sum} ){
-print "_add_image ", $file, "\n";
+        print "_add_image ", Dumper $file, "\n";
         # append to image list
         $image = Uploader::Image->new(
         {
-                file              => $file,
+                file              => $file->{ANSIPathName},
                 file_sum          => $sum,
-                site_name         => $self->_default_photo_name($file, $info, $i),
+                site_name         => $self->_default_photo_name($file->{PathName}, $info, $i),
                 site_author       => $self->author,
                 exif_metadata     => $self->_select_exif_data($info),
@@ -285 +285 @@
                 site_categories   => [],
                 site_tags         => [],
-                site_high_file    => $_,
+                site_high_file    => $file->{ANSIPathName},
             }
         );
@@ -996 +996 @@
                 gettext("upload succcessful"),
             );
-
+            
             push @{$self->uploaded_images}, $_;
             $uploaded++;