@@ -, +, @@ --- C4/Breeding.pm | 5 ++++- C4/ImportBatch.pm | 2 +- Koha/MetaSearcher.pm | 1 + Koha/MetadataRecord.pm | 1 - 4 files changed, 6 insertions(+), 3 deletions(-) --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -308,7 +308,10 @@ sub _handle_one_result { if( $breedingid ){ my @kohafields = ('biblio.title','biblio.author','biblioitems.isbn','biblioitems.lccn','biblioitems.editionstatement'); push @kohafields, C4::Context->preference('marcflavour') eq "MARC21" ? 'biblio.copyrightdate' : 'biblioitems.publicationyear'; - $row = TransformMarcToKoha({ record => $marcrecord, kohafields => \@kohafields, limit_table => 'no_items' }); + $row = C4::Biblio::TransformMarcToKoha({ record => $marcrecord, kohafields => \@kohafields, limit_table => 'no_items' }); + $row->{biblionumber} = $bib; + $row->{server} = $servhref->{servername}; + $row->{breedingid} = $breedingid; $row->{isbn}=_isbn_replace($row->{isbn}); $row = _add_custom_field_rowdata($row, $marcrecord); } --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -1710,7 +1710,7 @@ sub _parse_biblio_fields { my ($marc_record) = @_; my $dbh = C4::Context->dbh; - my $bibliofields = TransformMarcToKoha({ record => $marc_record }); + my $bibliofields = TransformMarcToKoha({ record => $marc_record, kohafields => ['biblio.title','biblio.author','biblioitems.isbn','biblioitems.issn'] }); return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}); } --- a/Koha/MetaSearcher.pm +++ a/Koha/MetaSearcher.pm @@ -21,6 +21,7 @@ use Modern::Perl; use base 'Class::Accessor'; +use C4::Biblio; use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); use C4::Search qw( new_record_from_zebra ); use DBIx::Class::ResultClass::HashRefInflator; --- a/Koha/MetadataRecord.pm +++ a/Koha/MetadataRecord.pm @@ -35,7 +35,6 @@ and authority) records in Koha. use Modern::Perl; use Carp qw( carp ); -use C4::Biblio; use Koha::Util::MARC; use base qw(Class::Accessor); --