Changeset 1605 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2000-10-18T22:00:10+13:00 (24 years ago)

Author:

say1

Message:

fixed some of my earlier mistakes. sorry Stefan

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -71 +71 @@
     print STDERR "   -first            Comma seperated list of first sizes to extract from the text \n";
     print STDERR "                     into a metadata field. The fields are called 'FirstNNN'.\n";
-    print STDERR "                     Defualts to '-first 200'. '-first 1000' also useful.\n";
     print STDERR "   -extract_email    Extract email addresses as metadata\n\n";
 }
@@ -100 +99 @@
              q^markup_acronyms^, \$self->{'markup_acronyms'},
              q^extract_language^, \$self->{'extract_language'},
-             q^first/.*/200^, \$self->{'first'},
+             q^first/.*/^, \$self->{'first'},
              q^date_extract^, \$self->{'date_extract'},
              "maximum_date/\\d{4}/$year", \$self->{'max_year'},