Changeset 15845

Timestamp:

2008-06-04T13:18:20+12:00 (16 years ago)

Author:

ak19

Message:

Corrected error I made in regex expression used to call replace_images: removed additional parentheses separating | operands

File:

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

gsdl/trunk/perllib/plugins/HTMLPlug.pm

@@ -912 +912 @@
 
     #if(!$self->{'no_image_links'}){
-    $$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;
+    $$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;
     #}