Changeset 11122 for trunk/gsdl/perllib/plugins/PDFPlug.pm

Timestamp:

2006-01-27T00:21:47+13:00 (18 years ago)

Author:

davidb

Message:

Introduction of -associate_tail_re option to BasPlug. This is a generalisation
of the associate_ext (in fact associate_ext is now mapped into the equivalent
assoicate_tail_re expression). To work properly, plugins that use the
secondary plugin mechanism (such as PDFPlug) need to duplicate the
associate_tail_re value secondary plug ins too.

File:

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

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -146 +146 @@
     my $html_options = $secondary_plugin_options->{'HTMLPlug'};
     my $text_options = $secondary_plugin_options->{'TEXTPlug'};
+    my $pagedimg_options = $secondary_plugin_options->{'PagedImgPlug'};
    
     if ($self->{'input_encoding'} eq "auto") {
@@ -179 +180 @@
     push(@$html_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     push(@$text_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
+
+    my $associate_tail_re = $self->{'associate_tail_re'};
+    if ((defined $associate_tail_re) && ($associate_tail_re ne "")) {
+    push(@$html_options, "-associate_tail_re", $associate_tail_re);
+    push(@$text_options, "-associate_tail_re", $associate_tail_re);
+    push(@$pagedimg_options, "-associate_tail_re", $associate_tail_re);
+    }
+
  
     $self = bless $self, $class;