Changeset 1728 for trunk

Timestamp:

2000-11-30T18:12:31+13:00 (23 years ago)

Author:

jrm21

Message:

Minor change so that leading whitespace is skipped when grabbing the title.
This means that if there is no text on the first couple of lines, we can
still take the first found text as the title.

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -63 +63 @@
     # in from another plugin)
     if (!defined $metadata->{'Title'}) {
-    my ($title) = $$textref =~ /^([^\n]*)/;
+    my ($title) = $$textref =~ /^\s+([^\n]*)/;
     if (length($title) > 100) {
         $title = substr ($title, 0, 100);