Changeset 321 for trunk/gsdl/perllib/plugins/HBPlug.pm

Timestamp:

1999-07-01T11:55:26+12:00 (25 years ago)

Author:

sjboddie

Message:

Fixed a couple of small bugs

File:

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

trunk/gsdl/perllib/plugins/HBPlug.pm

@@ -70 +70 @@
     if ($line =~ /<font [^>]*?face\s*=\s*\"?(\w+)\"?/i) {
         my $font = $1;
-        print STDERR "HBPlug::HB_gettext - warning font $font used\n" 
+        print STDERR "HBPlug::HB_gettext - warning removed font $font\n" 
         if ($font !~ /^arial$/i);
     }
@@ -187 +187 @@
     my $firstsection = 1;
     while (length ($html) > 0) {
-    if ($html =~ s/^.*?<p\b[^>]*>((<b>|<i>|<u>|\s)*)&lt;&lt;TOC(\d+)&gt;&gt;\s*(.*?)<p\b/<p/i) {
+    if ($html =~ s/^.*?(?:<p\b[^>]*>)?((<b>|<i>|<u>|\s)*)&lt;&lt;TOC(\d+)&gt;&gt;\s*(.*?)(<p\b|.)?/$5/i) {
         my $toclevel = $3;
         my $title = $4;
         my $sectiontext = "";
-        if ($html =~ s/^(.*?)(<p\b[^>]*>((<b>|<i>|<u>|\s)*)&lt;&lt;TOC\d+&gt;&gt;)/$2/i) {
+        if ($html =~ s/^(.*?)((?:<p\b[^>]*>)?((<b>|<i>|<u>|\s)*)&lt;&lt;TOC\d+&gt;&gt;)/$2/i) {
         $sectiontext = $1;
         } else {