Changeset 17203 for gsdl/trunk/perllib/plugouts/METSPlugout.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/METSPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/METSPlugout.pm

@@ -34 +34 @@
 eval {require bytes};
 use util;
-use BasPlugout;
+use BasePlugout;
 use docprint; # for escape_text
 
 sub BEGIN {
-    @METSPlugout::ISA = ('BasPlugout');
+    @METSPlugout::ISA = ('BasePlugout');
 }
 
@@ -67 +67 @@
 
       
-    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;
 }