From fe37dd81678a7b140ca1daa7388047a45df061b0 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Tue, 25 Jan 2011 18:10:00 +0100 Subject: [PATCH] Bug 5657: Changes made to sub merge to eliminate errors occuring when updating bibio records in batch (after updating multiple authority records) Signed-off-by: Jared Camins-Esakov Signed-off-by: Paul Poulain --- C4/AuthoritiesMarc.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index c3b0db30aa..f35b885881 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1312,7 +1312,11 @@ sub merge { my $rec; $rec=$oResult->record($z); my $marcdata = $rec->raw(); - push @reccache, $marcdata; + my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); + my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); + my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield); + my $marcrecorddb=GetMarcBiblio($i); + push @reccache, $marcrecorddb; $z++; } $oResult->destroy(); @@ -1338,7 +1342,6 @@ sub merge { # May be used as a template for a bulkedit field foreach my $marcrecord(@reccache){ my $update; - $marcrecord= MARC::Record->new_from_xml($marcrecord,"utf8",C4::Context->preference("marcflavour")) unless(C4::Context->preference('NoZebra')); foreach my $tagfield (@tags_using_authtype){ # warn "tagfield : $tagfield "; foreach my $field ($marcrecord->field($tagfield)){ -- 2.39.5