From 2b87f3d6d1b572f26d820eb61273f159116985b0 Mon Sep 17 00:00:00 2001
From: David Gustafsson <glasklas@gmail.com>
Date: Fri, 12 Nov 2021 23:42:30 +0100
Subject: [PATCH] Bug 25539: Strip items when adding new biblio to preserve
 previous behaviour of the script

---
 misc/migration_tools/bulkmarcimport.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 43467a756c..a03c9156f7 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -551,7 +551,14 @@ RECORD: foreach my $record (@{$marc_records}) {
                 }
             }
             elsif ($insert) {
+                my $record_clone = $record->clone();
+                C4::Biblio::_strip_item_fields($record_clone);
                 eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework) };
+                # If incoming record has bib ids set we need to transfer
+                # new ids from record_clone to incoming record to avoid
+                # working on wrong record (the original record) later on
+                # when adding items for example
+                C4::Biblio::_koha_marc_update_bib_ids($record, $framework, $biblionumber, $biblioitemnumber);
                 if ($@) {
                     warn "ERROR: Insert biblio $originalid failed: $@\n";
                     printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);
-- 
2.20.1