Changeset 14996 for gsdl

Timestamp:

2008-02-18T11:22:20+13:00 (16 years ago)

Author:

shaoqun

Message:

add an option to disable the image links trap

File:

• gsdl/trunk/perllib/plugins/HTMLPlug.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/HTMLPlug.pm

@@ -113 +113 @@
       { 'name' => "is_old_HDL_tags",
         'desc' => "{HTMLPlug.old_style_HDL}",
-    'type' => "flag"}   
+    'type' => "flag"},
+      { 'name' => "no_image_links",
+        'desc' => "{HTMLPlug.no_image_links}",
+    'type' => "flag"},  
       ];
 
@@ -878 +881 @@
     # trap links
     if (!$self->{'nolinks'}) {
-
     # usemap="./#index" not handled correctly => change to "#index"
     $$textref =~ s/(<img[^>]*?usemap\s*=\s*[\"\']?)([^\"\'>\s]+)([\"\']?[^>]*>)/
@@ -888 +890 @@
 
     # trap images
-
-    # allow spaces if inside quotes - jrm21
-    $$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;
+   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;
+    }
 
     # add text to document object