|
Link Here
|
| 27 |
|
27 |
|
| 28 |
use Koha::Exceptions; |
28 |
use Koha::Exceptions; |
| 29 |
|
29 |
|
| 30 |
use Koha::Biblio::Metadata::Extractor::MARC::MARC21; |
|
|
| 31 |
use Koha::Biblio::Metadata::Extractor::MARC::UNIMARC; |
| 32 |
|
| 33 |
=head1 API |
30 |
=head1 API |
| 34 |
|
31 |
|
| 35 |
=head2 Class methods |
32 |
=head2 Class methods |
|
Link Here
|
| 58 |
unless $valid_schemas->{$schema}; |
55 |
unless $valid_schemas->{$schema}; |
| 59 |
|
56 |
|
| 60 |
my $sub_class = "Koha::Biblio::Metadata::Extractor::MARC::$schema"; |
57 |
my $sub_class = "Koha::Biblio::Metadata::Extractor::MARC::$schema"; |
|
|
58 |
require "Koha/Biblio/Metadata/Extractor/MARC/$schema.pm"; |
| 59 |
|
| 61 |
return $sub_class->new($params); |
60 |
return $sub_class->new($params); |
| 62 |
} |
61 |
} |
| 63 |
|
62 |
|
| 64 |
- |
|
|