Changeset 16699

Show
Ignore:
Timestamp:
11.08.2008 14:07:03 (11 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ReadTextFile.pm

    r16667 r16699  
    8585sub new { 
    8686    my $class = shift (@_); 
    87     my ($pluginlist,$inputargs,$hashArgOptLists) = @_; 
     87    my ($pluginlist,$inputargs,$hashArgOptLists, $auxiliary) = @_; 
    8888    push(@$pluginlist, $class); 
    8989 
     
    9191    push(@{$hashArgOptLists->{"OptList"}},$options); 
    9292 
    93     my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists); 
     93    my $self = new AutoExtractMetadata($pluginlist, $inputargs, $hashArgOptLists, $auxiliary); 
    9494 
    9595    return bless $self, $class;