From 4190e92f5e7318c15b1c4c441d55545a988ed751 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 5 Apr 2024 14:08:31 +0200 Subject: [PATCH] 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 Signed-off-by: Martin Renvoize Signed-off-by: Katrin Fischer --- Koha/Biblio/Metadata/Extractor/MARC.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Koha/Biblio/Metadata/Extractor/MARC.pm b/Koha/Biblio/Metadata/Extractor/MARC.pm index bf030f601b..ceaabf2aa1 100644 --- a/Koha/Biblio/Metadata/Extractor/MARC.pm +++ b/Koha/Biblio/Metadata/Extractor/MARC.pm @@ -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); } -- 2.39.5