Changeset 10595

Timestamp:

2005-09-05T15:11:22+12:00 (19 years ago)

Author:

chi

Message:

Modification of level header regular expression.

File:

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

trunk/gsdl/perllib/plugins/StructuredHTMLPlug.pm

@@ -111 +111 @@
     # get rid of Table of Contents title and Table of Figures 
     # these two lines don't work - how can we do this properlly??
-    #$body_text =~ s/<p[^>]*><b><span[^>]*>(Table of Content.|Content.)<o:p><\/o:p><\/span><\/b><\/p>//isg;
-    #$body_text =~ s/<p[^>]*><b><span[^>]*>(Table of Figure.|Figure.)<o:p><\/o:p><\/span><\/b><\/p>//isg;
     if (defined $self->{'toc_header'}&& $self->{'toc_header'} =~ /\S/){
         $body_text =~ s/<p class=(($self->{'toc_header'})[^>]*)>(.+?)<\/p>//isg;
@@ -128 +126 @@
     if (defined $self->{'level1_header'} && $self->{'level1_header'}=~ /\S/ ){
         $self->{'level1_header'} =~ s/^\((.*)\)/$1/i;
-    $body_text =~ s/<p class=(($self->{'level1_header'})[^>]*)>(.+?)<\/p>/<p class=$1><h1>$3<\/h1><\/p>/ig;
+    $body_text =~ s/<p class=(($self->{'level1_header'})[^>]*)>(.+?)<\/p>/<p class=$1><h1>$3<\/h1><\/p>/isg;
     }
     
     if (defined $self->{'level2_header'} && $self->{'level2_header'}=~ /\S/){
     $self->{'level2_header'} =~ s/^\((.*)\)/$1/i;
-    $body_text =~ s/<p class=(($self->{'level2_header'})[^>]*)>(.+?)<\/p>/<p class=$1><h2>$3<\/h2><\/p>/ig;
+    $body_text =~ s/<p class=(($self->{'level2_header'})[^>]*)>(.+?)<\/p>/<p class=$1><h2>$3<\/h2><\/p>/isg;
     }