Changeset 1312

Timestamp:

2000-07-31T15:06:59+12:00 (24 years ago)

Author:

sjboddie

Message:

fixed a bug in the HTML plugin that showed up under windows

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -143 +143 @@
         $self->replace_usemap_links($1, $2, $3)/isge;
 
-    $$textref =~ s/(<(?:a|area|frame|link)\s+[^>]*? (?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
+    $$textref =~ s/(<(?:a|area|frame|link)\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
         $self->replace_href_links ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge;
     }
@@ -185 +185 @@
 
     my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);
+    # href may use '\'s where '/'s should be on Windows
+    $href =~ s/\\/\//g;
 
     my ($filename) = $href =~ /^(?:.*?):(?:\/\/)?(.*)/;