Changeset 2695 for trunk/gsdl

Timestamp:

2001-08-13T11:42:33+12:00 (23 years ago)

Author:

jrm21

Message:

Allow spaces in img src=... tags if surrounded with dbl quotes.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -168 +168 @@
     # trap images
 
-    $$textref =~ s/(<img[^>]*?src\s*=\s*\"?)([^\">\s]+)(\"?[^>]*>)/
+    # allow spaces if inside quotes - jrm21
+    $$textref =~ s/(<img[^>]*?src\s*=\s*)(\"[^\"]+\"|[^\s>]+)([^>]*>)/
     $self->replace_images ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge;
 
@@ -184 +185 @@
     my ($front, $link, $back, $base_dir, 
     $file, $doc_obj, $section) = @_;
-    
+    # remove quotes from link at start and end if necessary
+    if ($link=~/^\"/) {
+    $link=~s/^\"//;$link=~s/\"$//;
+    $front.='"';
+    $back="\"$back";
+    }
+
     $link =~ s/\n/ /g;
     my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);