Changeset 7966
- Timestamp:
- 2004-08-17T14:10:23+12:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r7949 r7966 351 351 # absolute paths for the images, and without the "file://" prefix 352 352 # So check for this special case and massage the data to be correct 353 if ($ENV{'GSDLOS'} =~ /^windows/i && $self->{'plugin_type'} eq "WordPlug" && $link =~ /^[A-Za-z]\:/) { 354 $link = "file://" . $link; 355 $base_dir = ""; 353 if ($ENV{'GSDLOS'} =~ /^windows/i && $self->{'plugin_type'} eq "WordPlug" && $link =~ /^[A-Za-z]\:\\/) { 354 $link =~ s/^.*\\([^\\]+)$/$1/; 356 355 } 357 356
Note:
See TracChangeset
for help on using the changeset viewer.