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

(-)a/C4/AuthoritiesMarc.pm (-2 / +3 lines)
Lines 1307-1312 sub merge { Link Here
1307
    } else {
1307
    } else {
1308
        #zebra connection  
1308
        #zebra connection  
1309
        my $oConnection=C4::Context->Zconn("biblioserver",0);
1309
        my $oConnection=C4::Context->Zconn("biblioserver",0);
1310
        my $oldSyntax = $oConnection->option("preferredRecordSyntax");
1310
        $oConnection->option("preferredRecordSyntax"=>"XML");
1311
        $oConnection->option("preferredRecordSyntax"=>"XML");
1311
        my $query;
1312
        my $query;
1312
        $query= "an=".$mergefrom;
1313
        $query= "an=".$mergefrom;
Lines 1323-1329 sub merge { Link Here
1323
            push @reccache, $marcdata;
1324
            push @reccache, $marcdata;
1324
            $z++;
1325
            $z++;
1325
        }
1326
        }
1326
        $oConnection->destroy();    
1327
        $oResult->destroy();
1328
        $oConnection->option("preferredRecordSyntax"=>$oldSyntax);
1327
    }
1329
    }
1328
    #warn scalar(@reccache)." biblios to update";
1330
    #warn scalar(@reccache)." biblios to update";
1329
    # Get All candidate Tags for the change 
1331
    # Get All candidate Tags for the change 
1330
- 

Return to bug 5737