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