View | Details | Raw Unified | Return to bug 5657
Collapse All | Expand All

(-)a/C4/AuthoritiesMarc.pm (-3 / +5 lines)
Lines 1312-1318 sub merge { Link Here
1312
            my $rec;
1312
            my $rec;
1313
            $rec=$oResult->record($z);
1313
            $rec=$oResult->record($z);
1314
            my $marcdata = $rec->raw();
1314
            my $marcdata = $rec->raw();
1315
            push @reccache, $marcdata;
1315
            my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour"));
1316
            my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' );
1317
            my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield);
1318
            my $marcrecorddb=GetMarcBiblio($i);
1319
            push @reccache, $marcrecorddb;
1316
            $z++;
1320
            $z++;
1317
        }
1321
        }
1318
        $oResult->destroy();
1322
        $oResult->destroy();
Lines 1338-1344 sub merge { Link Here
1338
    # May be used as a template for a bulkedit field  
1342
    # May be used as a template for a bulkedit field  
1339
    foreach my $marcrecord(@reccache){
1343
    foreach my $marcrecord(@reccache){
1340
        my $update;           
1344
        my $update;           
1341
        $marcrecord= MARC::Record->new_from_xml($marcrecord,"utf8",C4::Context->preference("marcflavour")) unless(C4::Context->preference('NoZebra'));
1342
        foreach my $tagfield (@tags_using_authtype){
1345
        foreach my $tagfield (@tags_using_authtype){
1343
#             warn "tagfield : $tagfield ";
1346
#             warn "tagfield : $tagfield ";
1344
            foreach my $field ($marcrecord->field($tagfield)){
1347
            foreach my $field ($marcrecord->field($tagfield)){
1345
- 

Return to bug 5657