Changeset 23353

Show
Ignore:
Timestamp:
28.11.2010 23:24:46 (8 years ago)
Author:
davidb
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm

    r23347 r23353  
    118118        my $filename_encoding = $self->deduce_filename_encoding($file,$metadata,$plugin_filename_encoding); 
    119119         
    120         my $url_encoded_filename = &unicode::raw_filename_to_url_encoded($filename_no_path); 
    121          
     120        my $url_encoded_full_filename  
     121            = &unicode::raw_filename_to_url_encoded($filename_full_path); 
     122 
    122123        # should we check the return value? 
    123         $self->generate_images($filename_full_path, $url_encoded_filename,  
    124                                $doc_obj, $doc_obj->get_top_section(),$filename_encoding);  
     124        $self->generate_images($filename_full_path,  
     125                       $url_encoded_full_filename,  
     126                       $doc_obj, $doc_obj->get_top_section(),$filename_encoding);  
    125127         
    126128    }