Changeset 17203 for gsdl/trunk/perllib/plugouts/DSpacePlugout.pm

Timestamp:

2008-09-08T11:21:35+12:00 (16 years ago)

Author:

kjdon

Message:

BasPlugout renamed to BasePlugout. And tidied up the constructors

File:

• gsdl/trunk/perllib/plugouts/DSpacePlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/DSpacePlugout.pm

@@ -31 +31 @@
 eval {require bytes};
 use util;
-use BasPlugout;
+use BasePlugout;
 
 sub BEGIN {
-    @DSpacePlugout::ISA = ('BasPlugout');
+    @DSpacePlugout::ISA = ('BasePlugout');
 }
 
@@ -49 +49 @@
     push(@$plugoutlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs); 
-    
-      
-   return bless $self, $class;
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists);    
+    
+    return bless $self, $class;
 }