Changeset 23353 for main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm

Timestamp:

2010-11-28T23:24:46+13:00 (13 years ago)

Author:

davidb

Message:

Modifications to code to support filename encoding issues when tested under Windows

File:

• main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm

@@ -118 +118 @@
         my $filename_encoding = $self->deduce_filename_encoding($file,$metadata,$plugin_filename_encoding);
         
-        my $url_encoded_filename = &unicode::raw_filename_to_url_encoded($filename_no_path);
-        
+        my $url_encoded_full_filename 
+            = &unicode::raw_filename_to_url_encoded($filename_full_path);
+
         # should we check the return value?
-        $self->generate_images($filename_full_path, $url_encoded_filename, 
-                               $doc_obj, $doc_obj->get_top_section(),$filename_encoding); 
+        $self->generate_images($filename_full_path, 
+                       $url_encoded_full_filename, 
+                       $doc_obj, $doc_obj->get_top_section(),$filename_encoding); 
         
     }