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