Changeset 7949

Timestamp:

2004-08-16T14:02:12+12:00 (20 years ago)

Author:

mdewsnip

Message:

Added a bit of a hack for the wv 0.7.1 bug under Windows that causes embedded images to be broken. Ultimately the version of wvWare that we use should be updated (hopefully this bug will be fixed).

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -346 +346 @@
 
     $link =~ s/\n/ /g;
+
+    # Hack to overcome Windows wv 0.7.1 bug that causes embedded images to be broken
+    # If the Word file path has spaces in it, wv messes up and you end up with
+    #   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 = "";
+    }
+
     my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);