From 23a65e61ffd1cadeb0f7abde8d53e84691212574 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Fri, 20 May 2022 11:26:29 +0000 Subject: [PATCH] Bug 30813: (follow-up) ImportBatch updates MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Content-Type: text/plain; charset=utf-8 Missed these in the original commits Signed-off-by: Martin Renvoize Signed-off-by: Joonas Kylmälä Signed-off-by: Marcel de Rooy --- C4/ImportBatch.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index 6a8fc526f2..1dffc9a5b1 100644 --- a/C4/ImportBatch.pm +++ b/C4/ImportBatch.pm @@ -765,7 +765,7 @@ sub BatchCommitItems { my ( $MARCfield, $MARCsubfield ) = GetMarcFromKohaField( 'items.onloan' ); $item_marc->field($MARCfield)->delete_subfield( code => $MARCsubfield ); - my $item = TransformMarcToKoha( $item_marc ); + my $item = TransformMarcToKoha({ record => $item_marc }); my $duplicate_barcode = exists( $item->{'barcode'} ) && Koha::Items->find({ barcode => $item->{'barcode'} }); my $duplicate_itemnumber = exists( $item->{'itemnumber'} ); @@ -1714,7 +1714,7 @@ sub _parse_biblio_fields { my ($marc_record) = @_; my $dbh = C4::Context->dbh; - my $bibliofields = TransformMarcToKoha($marc_record, ''); + my $bibliofields = TransformMarcToKoha({ record => $marc_record }); return ($bibliofields->{'title'}, $bibliofields->{'author'}, $bibliofields->{'isbn'}, $bibliofields->{'issn'}); } -- 2.20.1