Changeset 16247

Timestamp:

2008-06-30T12:30:25+12:00 (15 years ago)

Author:

ak19

Message:

Regular expression that processes imagelinks is slightly modified by putting some subelements of the expression in brackets, but each contains ?: at the start to ensure that the contents of the bracket-set are not stored in a variable and confuse the subsequent call to replace_images which already uses perl variables

File:

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

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -905 +905 @@
 
     #if(!$self->{'no_image_links'}){
-    $$textref =~ s/(<(?:img|embed|table|tr|td)[^>]*?(?:src|background)\s*=\s*)([\"][^\"]+[\"]|[\'][^\']+[\']|[^\s\/>]+)([^>]*>)/
+    $$textref =~ s/(<(?:img|embed|table|tr|td)[^>]*?(?:src|background)\s*=\s*)((?:[\"][^\"]+[\"])|(?:[\'][^\']+[\'])|(?:[^\s\/>]+))([^>]*>)/
     $self->replace_images ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge;
     #}