Lines 1406-1413
sub merge {
Link Here
|
1406 |
} else { |
1406 |
} else { |
1407 |
#zebra connection |
1407 |
#zebra connection |
1408 |
my $oConnection=C4::Context->Zconn("biblioserver",0); |
1408 |
my $oConnection=C4::Context->Zconn("biblioserver",0); |
1409 |
my $oldSyntax = $oConnection->option("preferredRecordSyntax"); |
1409 |
# We used to use XML syntax here, but that no longer works. |
1410 |
$oConnection->option("preferredRecordSyntax"=>"XML"); |
1410 |
# Thankfully, we don't need it. |
1411 |
my $query; |
1411 |
my $query; |
1412 |
$query= "an=".$mergefrom; |
1412 |
$query= "an=".$mergefrom; |
1413 |
my $oResult = $oConnection->search(new ZOOM::Query::CCL2RPN( $query, $oConnection )); |
1413 |
my $oResult = $oConnection->search(new ZOOM::Query::CCL2RPN( $query, $oConnection )); |
Lines 1420-1426
sub merge {
Link Here
|
1420 |
my $rec; |
1420 |
my $rec; |
1421 |
$rec=$oResult->record($z); |
1421 |
$rec=$oResult->record($z); |
1422 |
my $marcdata = $rec->raw(); |
1422 |
my $marcdata = $rec->raw(); |
1423 |
my $marcrecordzebra= MARC::Record->new_from_xml($marcdata,"utf8",C4::Context->preference("marcflavour")); |
1423 |
my $marcrecordzebra= MARC::Record->new_from_usmarc($marcdata); |
1424 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
1424 |
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' ); |
1425 |
my $bibnum; |
1425 |
my $bibnum; |
1426 |
if ($biblionumbertagfield < 10) { |
1426 |
if ($biblionumbertagfield < 10) { |
Lines 1434-1440
sub merge {
Link Here
|
1434 |
$z++; |
1434 |
$z++; |
1435 |
} |
1435 |
} |
1436 |
$oResult->destroy(); |
1436 |
$oResult->destroy(); |
1437 |
$oConnection->option("preferredRecordSyntax"=>$oldSyntax); |
|
|
1438 |
} |
1437 |
} |
1439 |
|
1438 |
|
1440 |
#warn scalar(@reccache)." biblios to update"; |
1439 |
#warn scalar(@reccache)." biblios to update"; |
1441 |
- |
|
|