Changeset 12391

Timestamp:

2006-08-03T14:55:40+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now ignores all-bold lines.

File:

• trunk/cic-hcap/perllib/plugins/CICWordPlug.pm (modified) (1 diff)

trunk/cic-hcap/perllib/plugins/CICWordPlug.pm

@@ -95 +95 @@
     }
     elsif ($in_record == 1) {
+        # Ignore lines completely in bold
+        next if ($line =~ /^<b>(.*)<\/b>$/);
+
         my $line_sans_tags = $line;
         $line_sans_tags =~ s/<.*?>//g;