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

gsdl/trunk/perllib/plugouts/MARCXMLPlugout.pm

@@ -31 +31 @@
 eval {require bytes};
 use util;
-use BasPlugout;
+use BasePlugout;
 use docprint; # for escape_text
 
 
 sub BEGIN {
-    @MARCXMLPlugout::ISA = ('BasPlugout');
+    @MARCXMLPlugout::ISA = ('BasePlugout');
 }
 
@@ -66 +66 @@
     push(@$plugoutlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs); 
+    my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists);
 
-         
-   $self->{'buffered_output'} ="";
+    $self->{'buffered_output'} ="";
 
     if (!defined $self->{'mapping_file'} ||  (defined $self->{'mapping_file'} && $self->{'mapping_file'} eq "")){