Bug 35959: Fix C3 merge of Koha::Biblio::Metadata::Extractor::MARC::*
Test plan:
Run the following commands:
perl -c Koha/Biblio/Metadata/Extractor/MARC/MARC21.pm
perl -c Koha/Biblio/Metadata/Extractor/MARC/UNIMARC.pm
They should all print 'syntax OK'
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 4190e92f5e)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
parent
4db70b3d86
commit
7068dd1eb4
|
|
@ -27,9 +27,6 @@ use Modern::Perl;
|
|||
|
||||
use Koha::Exceptions;
|
||||
|
||||
use Koha::Biblio::Metadata::Extractor::MARC::MARC21;
|
||||
use Koha::Biblio::Metadata::Extractor::MARC::UNIMARC;
|
||||
|
||||
=head1 API
|
||||
|
||||
=head2 Class methods
|
||||
|
|
@ -58,6 +55,8 @@ sub new {
|
|||
unless $valid_schemas->{$schema};
|
||||
|
||||
my $sub_class = "Koha::Biblio::Metadata::Extractor::MARC::$schema";
|
||||
require "Koha/Biblio/Metadata/Extractor/MARC/$schema.pm";
|
||||
|
||||
return $sub_class->new($params);
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue