Changeset 2451

Timestamp:

2001-05-21T18:01:10+12:00 (23 years ago)

Author:

jrm21

Message:

PSPlug now uses the -title_sub option to TEXTPlug, to remove any leading
page numbering from the title.

File:

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

trunk/gsdl/perllib/plugins/PSPlug.pm

@@ -39 +39 @@
     my $class = shift (@_);
 
-    my $self = new ConvertToPlug ($class, ("-convert_to","text",@_), "--", "-title_sub", 'Page\s+\d+');
+    # title_sub removes leading "Page 1" or "1 " from auto-extracted title.
+
+    my $self = new ConvertToPlug ($class, "-convert_to", "text", @_ , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     
     if (!parsargv::parse(\@_,