|
Lines 100-105
if ($version || ($input_marc_file eq '')) {
Link Here
|
| 100 |
pod2usage( -verbose => 2 ); |
100 |
pod2usage( -verbose => 2 ); |
| 101 |
exit; |
101 |
exit; |
| 102 |
} |
102 |
} |
|
|
103 |
if( $update && ( !$match || $isbn_check ) ) { |
| 104 |
warn "Using -update without -match or -isbn seems to be useless.\n"; |
| 105 |
} |
| 103 |
|
106 |
|
| 104 |
if(defined $localcust) { #local customize module |
107 |
if(defined $localcust) { #local customize module |
| 105 |
if(!-e $localcust) { |
108 |
if(!-e $localcust) { |
|
Lines 473-479
RECORD: while ( ) {
Link Here
|
| 473 |
printlog( { id => $id || $originalid || $biblionumber, op => "insert", status => "ok" } ) if ($logfile); |
476 |
printlog( { id => $id || $originalid || $biblionumber, op => "insert", status => "ok" } ) if ($logfile); |
| 474 |
} |
477 |
} |
| 475 |
} else { |
478 |
} else { |
|
|
479 |
warn "WARNING: Updating record ".($id||$originalid)." failed"; |
| 476 |
printlog( { id => $id || $originalid || $biblionumber, op => "update", status => "warning : not in database" } ) if ($logfile); |
480 |
printlog( { id => $id || $originalid || $biblionumber, op => "update", status => "warning : not in database" } ) if ($logfile); |
|
|
481 |
next RECORD; |
| 477 |
} |
482 |
} |
| 478 |
} |
483 |
} |
| 479 |
eval { ( $itemnumbers_ref, $errors_ref ) = AddItemBatchFromMarc( $record, $biblionumber, $biblioitemnumber, '' ); }; |
484 |
eval { ( $itemnumbers_ref, $errors_ref ) = AddItemBatchFromMarc( $record, $biblionumber, $biblioitemnumber, '' ); }; |
| 480 |
- |
|
|