---
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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
