Attachment 133035 Details for Bug 25539 – Bug 25539: Strip items when adding new biblio to preserve previous behaviour of the script

[patch] Bug 25539: Strip items when adding new biblio to preserve previous behaviour of the script

Bug-25539-Strip-items-when-adding-new-biblio-to-pr.patch (text/plain), 1.59 KB, created by David Gustafsson on 2022-04-06 14:20:34 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Gustafsson

Created: 2022-04-06 14:20:34 UTC

Size: 1.59 KB

patch

obsolete

>From cf5d75de4a644a36d49adb5d8192337dff4a17f5 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 | 9 ++++++++-
> 1 file changed, 8 insertions(+), 1 deletion(-)
>
>diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
>index c2f96642ff..8c727130ef 100755
>--- a/misc/migration_tools/bulkmarcimport.pl
>+++ b/misc/migration_tools/bulkmarcimport.pl
>@@ -541,7 +541,14 @@ RECORD: foreach my $record (@{$marc_records}) {
>                 }
>             }
>             elsif ($insert) {
>-                eval { ($record_id, $biblioitemnumber) = AddBiblio($record, $framework) };
>+                my $record_clone = $record->clone();
>+                C4::Biblio::_strip_item_fields($record_clone);
>+                eval { ($record_id, $biblioitemnumber) = AddBiblio($record_clone, $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, $record_id, $biblioitemnumber);
>                 if ($@) {
>                     warn "ERROR: Insert biblio $originalid failed: $@\n";
>                     printlog( { id => $originalid, op => "insert", status => "ERROR" } ) if ($logfile);
>-- 
>2.35.1

Actions: View | Diff | Splinter Review

Attachments on bug 25539: 105065 | 105066 | 109789 | 110260 | 110261 | 127599 | 127600 | 127601 | 127602 | 127603 | 127976 | 127977 | 127978 | 127979 | 127980 | 127981 | 133030 | 133031 | 133032 | 133034 | 133035 | 133036 | 140992 | 140993 | 140994 | 156224 | 156225 | 156226 | 160158 | 160159 | 160160 | 160489 | 160490 | 160491