Changeset 16920


Ignore:
Timestamp:
08/20/08 17:37:34 (13 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.
File:
1 edited

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    }
Note: See TracChangeset for help on using the changeset viewer.