From fd3efab876de8d3aeb7667a58aced57eeca5c620 Mon Sep 17 00:00:00 2001
From: David Gustafsson <david.gustafsson@ub.gu.se>
Date: Mon, 26 Sep 2022 16:46:30 +0200
Subject: [PATCH] Bug 29440: Rename $modify_biblio_marc_options to
 $mod_bilbio_options
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

This variable actually contains ModBibio options and
ModifyBiblioMarc accepts a subset of these

Signed-off-by: Michał Kula <148193449+mkibp@users.noreply.github.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 misc/migration_tools/bulkmarcimport.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 8eb0a7515a..aaa61cd621 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -124,7 +124,7 @@ if ($all) {
 }
 
 my $using_elastic_search = (C4::Context->preference('SearchEngine') eq 'Elasticsearch');
-my $modify_biblio_marc_options = {
+my $mod_biblio_options = {
     disable_autolink => $using_elastic_search,
     defer_search_engine_indexing => $using_elastic_search,
     overlay_context => { source => 'bulkmarcimport' }
@@ -520,7 +520,7 @@ RECORD: foreach my $record (@{$marc_records}) {
                 };
                 if ($update) {
                     my $success;
-                    eval { $success = ModBiblio($record, $matched_record_id, GetFrameworkCode($matched_record_id), $modify_biblio_marc_options) };
+                    eval { $success = ModBiblio($record, $matched_record_id, GetFrameworkCode($matched_record_id), $mod_biblio_options) };
                     if ($@) {
                         warn "ERROR: Update biblio $matched_record_id failed: $@\n";
                         printlog( { id => $matched_record_id, op => "update", status => "ERROR" } ) if ($logfile);
@@ -570,7 +570,7 @@ RECORD: foreach my $record (@{$marc_records}) {
                 C4::Biblio::_strip_item_fields($clone_record, $framework);
                 # This sets the marc fields if there was an error, and also calls
                 # defer_marc_save.
-                ModBiblioMarc($clone_record, $record_id, $modify_biblio_marc_options);
+                ModBiblioMarc($clone_record, $record_id, $mod_biblio_options);
                 if ($error_adding) {
                     warn "ERROR: Adding items to bib $record_id failed: $error_adding";
                     printlog({ id => $record_id, op => "insert items", status => "ERROR"}) if ($logfile);
@@ -621,7 +621,7 @@ RECORD: foreach my $record (@{$marc_records}) {
 
                         # @FIXME: Why do we save here without stripping items? Besides,
                         # save with stripped items has already been performed
-                        ModBiblioMarc($record, $record_id, $modify_biblio_marc_options);
+                        ModBiblioMarc($record, $record_id, $mod_biblio_options);
                         next RECORD;
                     }
                     else {
-- 
2.39.5