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

(-)a/C4/AuthoritiesMarc.pm (-3 / +5 lines)
Lines 1331-1337 sub merge { Link Here
1331
            my $rec;
1331
            my $rec;
1332
            $rec=$oResult->record($z);
1332
            $rec=$oResult->record($z);
1333
            my $marcdata = $rec->raw();
1333
            my $marcdata = $rec->raw();
1334
            push @reccache, $marcdata;
1334
            my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour"));
1335
            my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' );
1336
            my $i = $marcrecordzebra->subfield($biblionumbertagfield, $biblionumbertagsubfield);
1337
            my $marcrecorddb=GetMarcBiblio($i);
1338
            push @reccache, $marcrecorddb;
1335
            $z++;
1339
            $z++;
1336
        }
1340
        }
1337
        $oResult->destroy();
1341
        $oResult->destroy();
Lines 1357-1363 sub merge { Link Here
1357
    # May be used as a template for a bulkedit field  
1361
    # May be used as a template for a bulkedit field  
1358
    foreach my $marcrecord(@reccache){
1362
    foreach my $marcrecord(@reccache){
1359
        my $update;           
1363
        my $update;           
1360
        $marcrecord= MARC::Record->new_from_xml($marcrecord,"utf8",C4::Context->preference("marcflavour")) unless(C4::Context->preference('NoZebra'));
1361
        foreach my $tagfield (@tags_using_authtype){
1364
        foreach my $tagfield (@tags_using_authtype){
1362
#             warn "tagfield : $tagfield ";
1365
#             warn "tagfield : $tagfield ";
1363
            foreach my $field ($marcrecord->field($tagfield)){
1366
            foreach my $field ($marcrecord->field($tagfield)){
1364
- 

Return to bug 5657