Changeset 9747 for trunk/gsdl/perllib/plugins

Timestamp:

2005-04-26T22:29:05+12:00 (19 years ago)

Author:

davidb

Message:

Encountered new circumstance -- table -- for HTML tags that reference image.
These can be in either <table> <tr> or <td> and use the attribute 'background'.
Seems to be informally sorted by Netscape and IE but have my doubts over
whether or not it is in the standard. Have added addtional RE processing
to HTMLPlug that caters for these tags with this attribute.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -183 +183 @@
     my @link_matches = ($$textref =~ m/<link[^>]*?href\s*=\s*($attval)[^>]*>/igs);
     my @embed_matches = ($$textref =~ m/<embed[^>]*?src\s*=\s*($attval)[^>]*>/igs);
-
-    foreach my $link (@img_matches, @usemap_matches, @link_matches, @embed_matches) {
+    my @tabbg_matches = ($$textref =~ m/<(?:table|tr|td)[^>]*?background\s*=\s*($attval)[^>]*>/igs);
+
+    foreach my $link (@img_matches, @usemap_matches, @link_matches, @embed_matches, @tabbg_matches) {
 
     # remove quotes from link at start and end if necessary
@@ -408 +409 @@
 
     # allow spaces if inside quotes - jrm21
-    $$textref =~ s/(<(?:img|embed)[^>]*?src\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;