Changeset 10424
- Timestamp:
- 2005-08-05T15:11:26+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ExcelPlug.pm
r10270 r10424 57 57 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 58 58 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 59 59 60 60 my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs); 61 61 62 my $secondary_plugin_options = $self->{'secondary_plugin_options'}; 63 if (!defined $secondary_plugin_options->{'HTMLPlug'}) { 64 $secondary_plugin_options->{'HTMLPlug'} = []; 65 } 66 my $html_options = $secondary_plugin_options->{'HTMLPlug'}; 67 68 #$self->{'input_encoding'} = "utf8"; 69 #$self->{'extract_language'} = 1; 70 push(@$html_options, "-input_encoding", "utf8"); 71 push(@$html_options,"-extract_language"); 62 72 $self = bless $self, $class; 63 64 my $secondary_plugin_options = $self->{'secondary_plugin_options'}; 65 $self->load_secondary_plugins($class,$secondary_plugin_options); 66 67 return $self; 73 74 $self->load_secondary_plugins($class,$secondary_plugin_options,$hashArgOptLists); 75 return bless $self; 68 76 } 69 77
Note:
See TracChangeset
for help on using the changeset viewer.