Changeset 15845

Show
Ignore:
Timestamp:
04.06.2008 13:18:20 (11 years ago)
Author:
ak19
Message:

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

Files:
1 modified

Legend:

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

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