Changeset 7966

Timestamp:

2004-08-17T14:10:23+12:00 (20 years ago)

Author:

mdewsnip

Message:

Updated my fix from yesterday, so the collections will work correctly when copied onto a Unix system.

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -351 +351 @@
     #   absolute paths for the images, and without the "file://" prefix
     # So check for this special case and massage the data to be correct
-    if ($ENV{'GSDLOS'} =~ /^windows/i && $self->{'plugin_type'} eq "WordPlug" && $link =~ /^[A-Za-z]\:/) {
-    $link = "file://" . $link;
-    $base_dir = "";
+    if ($ENV{'GSDLOS'} =~ /^windows/i && $self->{'plugin_type'} eq "WordPlug" && $link =~ /^[A-Za-z]\:\\/) {
+    $link =~ s/^.*\\([^\\]+)$/$1/;
     }