Changeset 18401 for gsdl

Show
Ignore:
Timestamp:
16.01.2009 12:10:17 (11 years ago)
Author:
ak19
Message:

Needed to pass the current file_rename_method to subroutine filename_to_url.

Files:
1 modified

Legend:

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

    r18320 r18401  
    11491149    # of filenames, URL-encode the additional percent signs of the URL-encoded filename 
    11501150    my $newname_url = $newname; 
    1151     $newname_url = &unicode::filename_to_url($newname_url); #$newname_url =~ s/%/%25/g if $newname_url !~ m/%25/; 
     1151    $newname_url = &unicode::filename_to_url($newname_url, $self->{'file_rename_method'}); 
    11521152    return "_httpdocimg_/$newname_url";  
    11531153    }