Changeset 10429 for trunk/gsdl/perllib/plugins/PDFPlug.pm

Timestamp:

2005-08-05T15:23:22+12:00 (19 years ago)

Author:

chi

Message:

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

File:

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

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -76 +76 @@
     push(@$inputargs,'^(Page\s+\d+)?(\s*1\s+)?');
 
-    #foreach my $temp (@$inputargs)
-    #{
-    #print STDERR "($temp)\n";
-    #}
-
     if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-   
+
+    my @arg_array = @$inputargs;
     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
     
@@ -105 +101 @@
         $secondary_plugin_options->{'PagedImgPlug'} = [];
         my $pagedimg_options = $secondary_plugin_options->{'PagedImgPlug'}; 
-        push(@$pagedimg_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?')
-        
+        push(@$pagedimg_options, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     }
     }
     my $html_options = $secondary_plugin_options->{'HTMLPlug'};
     my $text_options = $secondary_plugin_options->{'TEXTPlug'};
-    #my $pagedimg_options = $secondary_plugin_options->{'PagedImgPlug'};
-
+   
     if ($self->{'input_encoding'} eq "auto") {
     # pdftohtml will always produce html files encoded as utf-8
@@ -127 +121 @@
     # to extract these metadata fields from the HEAD META fields
     push(@$html_options,"-metadata_fields","Title,GENERATOR,date,author<Creator>");
-
+    
     if ($self->{'use_sections'}) {
     $self->{'description_tags'} = 1;
     push(@$html_options,"-description_tags");
     }
+
     # following title_sub removes "Page 1" added by pdftohtml, and a leading
     # "1", which is often the page number at the top of the page. Bad Luck
@@ -137 +132 @@
     push(@$html_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
     push(@$text_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
-    #push(@$pagedimg_options , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
-
+ 
     $self = bless $self, $class;
-    $self->load_secondary_plugins($class,$secondary_plugin_options);
+    $self->load_secondary_plugins($class,$secondary_plugin_options,$hashArgOptLists);
     return $self;
 }