|
Lines 332-338
$schema->txn_begin;
Link Here
|
| 332 |
RECORD: while () { |
332 |
RECORD: while () { |
| 333 |
|
333 |
|
| 334 |
my $record; |
334 |
my $record; |
| 335 |
$record_number++; |
335 |
$record_number++ |
|
|
336 |
; # We increment here, if a record is skipped because we can't load form the batch or can't be converted |
| 337 |
# it still counts against the limit if a number to process is passed |
| 336 |
|
338 |
|
| 337 |
# get record |
339 |
# get record |
| 338 |
eval { $record = $batch->next() }; |
340 |
eval { $record = $batch->next() }; |
|
Lines 348-354
RECORD: while () {
Link Here
|
| 348 |
next; |
350 |
next; |
| 349 |
} |
351 |
} |
| 350 |
if ($record) { |
352 |
if ($record) { |
| 351 |
$record_number++; |
|
|
| 352 |
|
353 |
|
| 353 |
if ($skip_bad_records) { |
354 |
if ($skip_bad_records) { |
| 354 |
my $xml = $record->as_xml_record(); |
355 |
my $xml = $record->as_xml_record(); |
| 355 |
- |
|
|