|
Lines 272-277
RECORD: while ( ) {
Link Here
|
| 272 |
# changed to warn so able to continue with one broken record |
272 |
# changed to warn so able to continue with one broken record |
| 273 |
if ( defined $error ) { |
273 |
if ( defined $error ) { |
| 274 |
warn "unable to search the database for duplicates : $error"; |
274 |
warn "unable to search the database for duplicates : $error"; |
|
|
275 |
printlog( { id => $id || $originalid || $match, op => "match", status => "ERROR" } ) if ($logfile); |
| 275 |
next RECORD; |
276 |
next RECORD; |
| 276 |
} |
277 |
} |
| 277 |
$debug && warn "$query $server : $totalhits"; |
278 |
$debug && warn "$query $server : $totalhits"; |
| 278 |
- |
|
|