Changeset 10218 for trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

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

File:

• trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

@@ -63 +63 @@
 
 sub new {
-    my $class = shift (@_);
-    if ($class eq "ConvertToRogPlug" && defined $_[0]) {$class = shift (@_);}
-    my $self;
-    # parsargv::parse might modify the list, so we do this by creating a copy
-    # of the argument list.
-    my @arglist = @_;
-    my ($plugin_name) = $class->parse_args(\@_);
-
-    $self = new RogPlug ($class, @arglist);
+    my ($class) = shift (@_);
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+
+    my $self = (defined $hashArgOptLists)? new RogPlug($pluginlist,$inputargs,$hashArgOptLists): new RogPlug($pluginlist,$inputargs);
+
     $self->{'convert_to'} = "Rog";
     $self->{'convert_to_ext'} = "rog";
-    $self->{'plugin_type'} = "ConvertToRogPlug";
-    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
-    my $option_list = $self->{'option_list'};
-    push( @{$option_list}, $options );
 
     return bless $self, $class;