Display available error information during bulkmarcimport
This commit is contained in:
parent
df47a149b0
commit
65f8573b5d
1 changed files with 2 additions and 1 deletions
|
@ -169,13 +169,14 @@ RECORD: while ( ) {
|
|||
# get records
|
||||
eval { $record = $batch->next() };
|
||||
if ( $@ ) {
|
||||
print "Bad MARC record: skipped\n";
|
||||
print "Bad MARC record $i: $@ skipped\n";
|
||||
# FIXME - because MARC::Batch->next() combines grabbing the next
|
||||
# blob and parsing it into one operation, a correctable condition
|
||||
# such as a MARC-8 record claiming that it's UTF-8 can't be recovered
|
||||
# from because we don't have access to the original blob. Note
|
||||
# that the staging import can deal with this condition (via
|
||||
# C4::Charset::MarcToUTF8Record) because it doesn't use MARC::Batch.
|
||||
$i++;
|
||||
next;
|
||||
}
|
||||
# skip if we get an empty record (that is MARC valid, but will result in AddBiblio failure
|
||||
|
|
Loading…
Reference in a new issue