Changeset 2452

Timestamp:

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

Author:

jrm21

Message:

-title_sub works now -- previously had a leading "--" argument, which means
stop processing arguments....

File:

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

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -37 +37 @@
 sub new {
     my $class = shift (@_);
-     
-    my $self = new ConvertToPlug ($class, @_, "--", "-title_sub", 'Page\s+\d+');
+
+    # following title_sub removes "Page 1" added by pdftohtml, and a leading
+    # "1", which is often the page number at the top of the page. Bad Luck
+    # if your document title actually starts with "1 " - is there a better way?
+
+    my $self = new ConvertToPlug ($class, @_, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     
     return bless $self, $class;