Changeset 10424

Timestamp:

2005-08-05T15:11:26+12:00 (19 years ago)

Author:

chi

Message:

Modification of the way passing argument and options list for the seconardy plugin.

File:

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

trunk/gsdl/perllib/plugins/ExcelPlug.pm

@@ -57 +57 @@
     if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
+    
     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
 
+    my $secondary_plugin_options = $self->{'secondary_plugin_options'};
+    if (!defined $secondary_plugin_options->{'HTMLPlug'}) {
+    $secondary_plugin_options->{'HTMLPlug'} = [];
+    }
+    my $html_options = $secondary_plugin_options->{'HTMLPlug'};
+    
+    #$self->{'input_encoding'} = "utf8";
+    #$self->{'extract_language'} = 1;
+    push(@$html_options, "-input_encoding", "utf8");
+    push(@$html_options,"-extract_language");
     $self = bless $self, $class;
-
-    my $secondary_plugin_options = $self->{'secondary_plugin_options'};
-    $self->load_secondary_plugins($class,$secondary_plugin_options);
-
-    return $self;
+    
+    $self->load_secondary_plugins($class,$secondary_plugin_options,$hashArgOptLists);
+    return bless $self;    
 }