Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/HTMLPlug.pm

    r1245 r1312  
    143143        $self->replace_usemap_links($1, $2, $3)/isge;
    144144
    145     $$textref =~ s/(<(?:a|area|frame|link)\s+[^>]*? (?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
     145    $$textref =~ s/(<(?:a|area|frame|link)\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
    146146        $self->replace_href_links ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge;
    147147    }
     
    185185
    186186    my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);
     187    # href may use '\'s where '/'s should be on Windows
     188    $href =~ s/\\/\//g;
    187189
    188190    my ($filename) = $href =~ /^(?:.*?):(?:\/\/)?(.*)/;
Note: See TracChangeset for help on using the changeset viewer.