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 |
- |
|
|