Changeset 10427

Timestamp:

2005-08-05T15:17:39+12:00 (19 years ago)

Author:

chi

Message:

Modification of the way passing argument and option list for the secondary plugin.

File:

• trunk/gsdl/perllib/plugins/PPTPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/PPTPlug.pm

@@ -66 +66 @@
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
 
+
+    my @arg_array = @$inputargs;
     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
  
@@ -74 +76 @@
 
     if ($self->{'windows_scripting'} && ($self->{'convert_to'} eq "PagedImg")) {
-        $secondary_plugin_options->{'PagedImgPlug'} = [];
+    $secondary_plugin_options->{'PagedImgPlug'} = [];
     } else {
     $secondary_plugin_options->{'HTMLPlug'} = [];
@@ -91 +93 @@
         # to extract these metadata fields from the HEAD META fields
         push(@$html_options,"-metadata_fields","Title,GENERATOR,date,author<Creator>");
-        #push(@$html_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     } 
     if (defined $secondary_plugin_options->{'PagedImgPlug'}){
@@ -101 +102 @@
     $self = bless $self, $class;
 
-    $self->load_secondary_plugins($class,$secondary_plugin_options);
+    $self->load_secondary_plugins($class,$secondary_plugin_options,$hashArgOptLists);
     return $self;
 }