Changeset 3708
- Timestamp:
- 2003-01-24T17:11:53+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r3540 r3708 436 436 $filename =~ s/^[^:]*:\/\///; 437 437 $filename = &util::filename_cat($base_dir, $filename); 438 438 439 # Replace %20's in URL with a space if required. Note that the filename 440 # may include the %20 in some situations 441 if ($filename =~ /\%20/) { 442 if (!-e $filename) { 443 $filename =~ s/\%20/ /g; 444 } 445 } 446 439 447 my ($ext) = $filename =~ /(\.[^\.]*)$/; 440 448
Note:
See TracChangeset
for help on using the changeset viewer.