Changeset 2452 for trunk/gsdl/perllib/plugins/PDFPlug.pm
- Timestamp:
- 2001-05-21T18:01:42+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/PDFPlug.pm
r1954 r2452 37 37 sub new { 38 38 my $class = shift (@_); 39 40 my $self = new ConvertToPlug ($class, @_, "--", "-title_sub", 'Page\s+\d+'); 39 40 # following title_sub removes "Page 1" added by pdftohtml, and a leading 41 # "1", which is often the page number at the top of the page. Bad Luck 42 # if your document title actually starts with "1 " - is there a better way? 43 44 my $self = new ConvertToPlug ($class, @_, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?'); 41 45 42 46 return bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.