Changeset 8366
- Timestamp:
- 2004-10-18T16:17:11+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r8225 r8366 138 138 } 139 139 140 140 # may want to use (?i)\.(gif|jpe?g|jpe|png|css|js(?:@.*)?)$ 141 # if have eg <script language="javascript" src="img/lib.js@123"> 141 142 sub get_default_block_exp { 142 143 my $self = shift (@_); 143 144 144 return q^(?i)\.(gif|jpe?g|jpe|png|css )$^;145 return q^(?i)\.(gif|jpe?g|jpe|png|css|js)$^; 145 146 } 146 147 … … 317 318 $self->replace_usemap_links($1, $2, $3)/isge; 318 319 319 $$textref =~ s/(<(?:a|area|frame|link )\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/320 $$textref =~ s/(<(?:a|area|frame|link|script)\s+[^>]*?\s*(?:href|src)\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/ 320 321 $self->replace_href_links ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge; 321 322 }
Note:
See TracChangeset
for help on using the changeset viewer.