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