Changeset 11122 for trunk/gsdl/perllib/plugins/WordPlug.pm
- Timestamp:
- 2006-01-27T00:21:47+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/WordPlug.pm
r10769 r11122 152 152 my $html_options = $secondary_plugin_options->{'HTMLPlug'}; 153 153 my $text_options = $secondary_plugin_options->{'TextPlug'}; 154 154 my $structhtml_options = $secondary_plugin_options->{'StructuredHTMLPlug'}; 155 155 # wvWare will always produce html files encoded as utf-8, so make sure the secondary HTMLPlug knows this 156 156 push(@$html_options,"-input_encoding", "utf8"); 157 157 158 if ($self->{'input_encoding'} eq "auto") { 158 159 $self->{'input_encoding'} = "utf8"; … … 167 168 push(@$html_options,"-metadata_fields","Title,GENERATOR,date,author<Creator>"); 168 169 push(@$html_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?'); 170 171 my $associate_tail_re = $self->{'associate_tail_re'}; 172 if ((defined $associate_tail_re) && ($associate_tail_re ne "")) { 173 push(@$html_options, "-associate_tail_re", $associate_tail_re); 174 push(@$text_options, "-associate_tail_re", $associate_tail_re); 175 push(@$structhtml_options, "-associate_tail_re", $associate_tail_re); 176 } 169 177 170 178 $self = bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.