From 80833c1bb5d4c898e4c51416c7356f853cc6e2c5 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) Content-Type: text/plain; charset="utf-8" --- C4/AuthoritiesMarc.pm | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index b3c5070..b0f90da 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1331,7 +1331,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(); @@ -1357,7 +1361,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)){ -- 1.7.2.5