Changeset 11122 for trunk/gsdl/perllib/plugins/WordPlug.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/WordPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -152 +152 @@
     my $html_options = $secondary_plugin_options->{'HTMLPlug'};
     my $text_options = $secondary_plugin_options->{'TextPlug'};
-    
+    my $structhtml_options = $secondary_plugin_options->{'StructuredHTMLPlug'};    
     # wvWare will always produce html files encoded as utf-8, so make sure the secondary HTMLPlug knows this
     push(@$html_options,"-input_encoding", "utf8");
+
     if ($self->{'input_encoding'} eq "auto") {
     $self->{'input_encoding'} = "utf8";
@@ -167 +168 @@
     push(@$html_options,"-metadata_fields","Title,GENERATOR,date,author<Creator>");
     push(@$html_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(@$structhtml_options, "-associate_tail_re", $associate_tail_re);
+    }
        
     $self = bless $self, $class;