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

(-)a/C4/AuthoritiesMarc.pm (-2 / +3 lines)
Lines 1286-1291 sub merge { Link Here
1286
    } else {
1286
    } else {
1287
        #zebra connection  
1287
        #zebra connection  
1288
        my $oConnection=C4::Context->Zconn("biblioserver",0);
1288
        my $oConnection=C4::Context->Zconn("biblioserver",0);
1289
        my $oldSyntax = $oConnection->option("preferredRecordSyntax");
1289
        $oConnection->option("preferredRecordSyntax"=>"XML");
1290
        $oConnection->option("preferredRecordSyntax"=>"XML");
1290
        my $query;
1291
        my $query;
1291
        $query= "an=".$mergefrom;
1292
        $query= "an=".$mergefrom;
Lines 1302-1308 sub merge { Link Here
1302
            push @reccache, $marcdata;
1303
            push @reccache, $marcdata;
1303
            $z++;
1304
            $z++;
1304
        }
1305
        }
1305
        $oConnection->destroy();    
1306
        $oResult->destroy();
1307
        $oConnection->option("preferredRecordSyntax"=>$oldSyntax);
1306
    }
1308
    }
1307
    #warn scalar(@reccache)." biblios to update";
1309
    #warn scalar(@reccache)." biblios to update";
1308
    # Get All candidate Tags for the change 
1310
    # Get All candidate Tags for the change 
1309
- 

Return to bug 5737