Changeset 17203 for gsdl/trunk/perllib
- Timestamp:
- 2008-09-08T11:21:35+12:00 (16 years ago)
- Location:
- gsdl/trunk/perllib/plugouts
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/DSpacePlugout.pm
r13172 r17203 31 31 eval {require bytes}; 32 32 use util; 33 use Bas Plugout;33 use BasePlugout; 34 34 35 35 sub BEGIN { 36 @DSpacePlugout::ISA = ('Bas Plugout');36 @DSpacePlugout::ISA = ('BasePlugout'); 37 37 } 38 38 … … 49 49 push(@$plugoutlist, $class); 50 50 51 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 52 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 53 54 my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs); 55 56 57 return bless $self, $class; 51 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 52 push(@{$hashArgOptLists->{"OptList"}},$options); 53 54 my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists); 55 56 return bless $self, $class; 58 57 } 59 58 -
gsdl/trunk/perllib/plugouts/FedoraMETSPlugout.pm
r17063 r17203 64 64 65 65 66 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 67 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 68 69 my $self = (defined $hashArgOptLists)? new METSPlugout($plugoutlist,$inputargs,$hashArgOptLists): new METSPlugout($plugoutlist,$inputargs); 70 66 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 67 push(@{$hashArgOptLists->{"OptList"}},$options); 68 69 my $self = new METSPlugout($plugoutlist,$inputargs,$hashArgOptLists); 71 70 72 71 return bless $self, $class; -
gsdl/trunk/perllib/plugouts/GAPlugout.pm
r13172 r17203 32 32 eval {require bytes}; 33 33 use util; 34 use Bas Plugout;34 use BasePlugout; 35 35 use docprint; 36 36 37 37 sub BEGIN { 38 @GAPlugout::ISA = ('Bas Plugout');38 @GAPlugout::ISA = ('BasePlugout'); 39 39 } 40 40 … … 51 51 push(@$plugoutlist, $class); 52 52 53 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}54 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};53 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 54 push(@{$hashArgOptLists->{"OptList"}},$options); 55 55 56 my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs);56 my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists); 57 57 58 return bless $self, $class;58 return bless $self, $class; 59 59 } 60 60 -
gsdl/trunk/perllib/plugouts/GreenstoneMETSPlugout.pm
r16996 r17203 53 53 push(@$plugoutlist, $class); 54 54 55 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 56 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 57 58 my $self = (defined $hashArgOptLists)? new METSPlugout($plugoutlist,$inputargs,$hashArgOptLists): new METSPlugout($plugoutlist,$inputargs); 59 60 61 return bless $self, $class; 55 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 56 push(@{$hashArgOptLists->{"OptList"}},$options); 57 58 my $self = new METSPlugout($plugoutlist,$inputargs,$hashArgOptLists); 59 60 return bless $self, $class; 62 61 } 63 62 -
gsdl/trunk/perllib/plugouts/MARCXMLPlugout.pm
r14971 r17203 31 31 eval {require bytes}; 32 32 use util; 33 use Bas Plugout;33 use BasePlugout; 34 34 use docprint; # for escape_text 35 35 36 36 37 37 sub BEGIN { 38 @MARCXMLPlugout::ISA = ('Bas Plugout');38 @MARCXMLPlugout::ISA = ('BasePlugout'); 39 39 } 40 40 … … 66 66 push(@$plugoutlist, $class); 67 67 68 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}69 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};68 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 69 push(@{$hashArgOptLists->{"OptList"}},$options); 70 70 71 my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs);71 my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists); 72 72 73 74 $self->{'buffered_output'} =""; 73 $self->{'buffered_output'} =""; 75 74 76 75 if (!defined $self->{'mapping_file'} || (defined $self->{'mapping_file'} && $self->{'mapping_file'} eq "")){ -
gsdl/trunk/perllib/plugouts/METSPlugout.pm
r17055 r17203 34 34 eval {require bytes}; 35 35 use util; 36 use Bas Plugout;36 use BasePlugout; 37 37 use docprint; # for escape_text 38 38 39 39 sub BEGIN { 40 @METSPlugout::ISA = ('Bas Plugout');40 @METSPlugout::ISA = ('BasePlugout'); 41 41 } 42 42 … … 67 67 68 68 69 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 70 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 71 72 my $self = (defined $hashArgOptLists)? new BasPlugout($plugoutlist,$inputargs,$hashArgOptLists): new BasPlugout($plugoutlist,$inputargs); 73 74 75 return bless $self, $class; 69 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 70 push(@{$hashArgOptLists->{"OptList"}},$options); 71 72 my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists); 73 return bless $self, $class; 76 74 } 77 75
Note:
See TracChangeset
for help on using the changeset viewer.