Changeset 2453

Timestamp:

2001-05-21T18:02:32+12:00 (23 years ago)

Author:

jrm21

Message:

Slightly smarter title extraction from body's text.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -460 +460 @@
         # if no title use first 100 characters
         my $tmptext = $$textref;
-        $tmptext =~ s/$self->{'title_sub'}// if (defined $self->{'title_sub'});
+        $tmptext =~ s/<\/([^>]+)><\1>//g; # (eg) </b><b> - no space
         $tmptext =~ s/<[^>]*>/ /g;
         $tmptext =~ s/&nbsp;/ /g;
-        $tmptext =~ s/^\s+//;
+        $tmptext =~ s/^\s+//s;
         $tmptext =~ s/\s+$//;
         $tmptext =~ s/\s+/ /gs;
+        $tmptext =~ s/$self->{'title_sub'}// if (defined $self->{'title_sub'});
         $tmptext = substr ($tmptext, 0, 100);
         $tmptext =~ s/\s\S*$/.../;