Changeset 16698 for gsdl/trunk/perllib/plugins/AutoExtractMetadata.pm

Timestamp:

2008-08-11T14:06:47+12:00 (16 years ago)

Author:

kjdon

Message:

added auxiliary parameter to new - needed if you want to do new without parsing the arguments - ie want to inherit from a plugin to get the methods and arguments, but its not in the direct inheritance line

File:

• gsdl/trunk/perllib/plugins/AutoExtractMetadata.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/AutoExtractMetadata.pm

@@ -66 +66 @@
     # Start the AutoExtractMetadata Constructor
     my $class = shift (@_);
-    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    my ($pluginlist,$inputargs,$hashArgOptLists,$auxiliary) = @_;
     push(@$pluginlist, $class);
     
@@ -79 +79 @@
     new GISExtractor($pluginlist, $inputargs, $hashArgOptLists);
     new CJKTextSegmenter($pluginlist, $inputargs, $hashArgOptLists);
-    my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists,$auxiliary);
 
     return bless $self, $class;