Changeset 339

Timestamp:

1999-07-02T14:09:06+12:00 (25 years ago)

Author:

sjboddie

Message:

Fixed a bug that I created last time

File:

• trunk/gsdl/perllib/plugins/HBPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/HBPlug.pm

@@ -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|.)?/$5/i) {
+    if ($html =~ s/^.*?(?:<p\b[^>]*>)?((<b>|<i>|<u>|\s)*)&lt;&lt;TOC(\d+)&gt;&gt;\s*(.*?)<p\b/<p/i) {
         my $toclevel = $3;
         my $title = $4;