Bug 29440: Fix AddBiblio/ModBiblio options args

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>
This commit is contained in:
David Gustafsson 2023-10-25 14:43:21 +02:00 committed by Katrin Fischer
parent 188ea40db1
commit 70de25b439
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 6 additions and 2 deletions

View File

@ -126,9 +126,13 @@ if ($all) {
my $using_elastic_search = (C4::Context->preference('SearchEngine') eq 'Elasticsearch');
my $mod_biblio_options = {
disable_autolink => $using_elastic_search,
defer_search_engine_indexing => $using_elastic_search,
skip_record_index => $using_elastic_search,
overlay_context => { source => 'bulkmarcimport' }
};
my $add_biblio_options = {
disable_autolink => $using_elastic_search,
skip_record_index => $using_elastic_search
};
my @search_engine_record_ids;
my @search_engine_records;
@ -542,7 +546,7 @@ RECORD: foreach my $record (@{$marc_records}) {
}
}
elsif ($insert) {
eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework, { disable_autolink => 1, defer_marc_save => 1 }) };
eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework, $add_biblio_options) };
if ($@) {
warn "ERROR: Insert biblio $originalid failed: $@\n";
printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);