Changeset 2451

Show
Ignore:
Timestamp:
21.05.2001 18:01:10 (19 years ago)
Author:
jrm21
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/PSPlug.pm

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