Changeset 16920

Show
Ignore:
Timestamp:
20.08.2008 17:37:34 (11 years ago)
Author:
ak19
Message:

1. When checking whether the original_file is missing, it ensures that is defined. 2. Uses the new unicode::filename_to_url() subroutine.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/HTMLPlugin.pm

    r16904 r16920  
    11181118    # try the original filename stored in map 
    11191119    my $original_filename = $self->{'utf8_to_original_filename'}->{$filename}; 
    1120     if (-e $original_filename) { 
     1120#   print STDERR "*** missing: $filename" unless defined $original_filename; #StrangeNoGraphicData in word doc 
     1121    if (defined $original_filename && -e $original_filename) { 
    11211122        $filename = $original_filename; 
    11221123    } 
     
    11671168    # of filenames, URL-encode the additional percent signs of the URL-encoded filename 
    11681169    my $newname_url = $newname; 
    1169     $newname_url =~ s/%/%25/g if $newname_url !~ m/%25/; 
     1170    $newname_url = &unicode::filename_to_url($newname_url); #$newname_url =~ s/%/%25/g if $newname_url !~ m/%25/; 
    11701171    return "_httpdocimg_/$newname_url";  
    11711172    }