Changeset 16928

Show
Ignore:
Timestamp:
21.08.2008 11:07:09 (11 years ago)
Author:
ak19
Message:

Corrected an error that I introduced in the previous commit.

Files:
1 modified

Legend:

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

    r16924 r16928  
    941941 
    942942    # get the actual filename as it exists on the filesystem which this url refers to 
    943     $source_file = &unicode::url_to_filename($sourcefile);  
     943    $source_file = &unicode::url_to_filename($source_file);  
    944944    my ($assocfilename) = $source_file =~ /([^\\\/]+)$/; 
    945945    return $assocfilename;