Show
Ignore:
Timestamp:
06.07.2005 15:27:45 (14 years ago)
Author:
kjdon
Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

Files:
1 modified

Legend:

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

    r10156 r10218  
    5353 
    5454sub new { 
    55     my ($class) = @_; 
    56     my $self = new BasPlug ("ArcPlug", @_); 
    57       
    58     # 14-05-02 To allow for proper inheritance of arguments - John Thompson 
    59      my $option_list = $self->{'option_list'}; 
    60      push( @{$option_list}, $options ); 
     55    my ($class) = shift (@_); 
     56    my ($pluginlist,$inputargs,$hashArgOptLists) = @_; 
     57    push(@$pluginlist, $class); 
     58 
     59    if(defined $arguments){print "SETSEGE\n"; push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 
     60    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 
     61 
     62    my $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs); 
    6163 
    6264    return bless $self, $class;