Ignore:
Timestamp:
2009-01-16T18:23:59+13:00 (15 years ago)
Author:
ak19
Message:
  1. BasePlugin's file_rename_method option changed from inherited to none; 2. unicode::filename_to_url subroutine no longer takes rename_method as a parameter (back to how it was before).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/unicode.pm

    r18379 r18404  
    620620# a url more than once this way.
    621621sub filename_to_url {
    622     my ($text, $rename_method) = @_;
    623    
    624     if(!defined $rename_method || $rename_method eq "url") {
    625     if($text !~ m/%25/) {
    626         $text =~ s/%/%25/g;
    627     }
     622    my ($text) = @_;
     623   
     624    if($text !~ m/%25/) {
     625    $text =~ s/%/%25/g;
    628626    }
    629627    return $text;
Note: See TracChangeset for help on using the changeset viewer.