Changeset 15838 for gsdl/trunk/perllib/plugins/HTMLPlug.pm
- Timestamp:
- 2008-05-30T17:25:40+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/HTMLPlug.pm
r15176 r15838 911 911 912 912 #if(!$self->{'no_image_links'}){ 913 $$textref =~ s/(<(?:img|embed|table|tr|td)[^>]*?(?:src|background)\s*=\s*)( [\"\'][^\"\']+[\"\']|[^\s>]+)([^>]*>)/913 $$textref =~ s/(<(?:img|embed|table|tr|td)[^>]*?(?:src|background)\s*=\s*)(([\"][^\"]+[\"])|([\'][^\"\']+[\'])|([^\s\/>]+))([^>]*>)/ 914 914 $self->replace_images ($1, $2, $3, $base_dir, $file, $doc_obj, $cursection)/isge; 915 915 #} … … 930 930 # remove quotes from link at start and end if necessary 931 931 if ($link=~/^[\"\']/) { 932 $link=~s/^[\"\']//;$link=~s/[\"\']$//; 932 $link=~s/^[\"\']//; 933 $link=~s/[\"\']$//; 933 934 $front.='"'; 934 935 $back="\"$back"; 935 936 } 936 937 937 $link =~ s/\n/ /g; 938 938
Note:
See TracChangeset
for help on using the changeset viewer.