|
Lines 536-543
sub BatchCommitRecords {
Link Here
|
| 536 |
$progress_interval = 0 unless $progress_interval && $progress_interval =~ /^\d+$/; |
536 |
$progress_interval = 0 unless $progress_interval && $progress_interval =~ /^\d+$/; |
| 537 |
$progress_interval = 0 unless ref($progress_callback) eq 'CODE'; |
537 |
$progress_interval = 0 unless ref($progress_callback) eq 'CODE'; |
| 538 |
|
538 |
|
| 539 |
SetImportBatchStatus($batch_id, 'importing'); |
|
|
| 540 |
|
| 541 |
my $schema = Koha::Database->schema; |
539 |
my $schema = Koha::Database->schema; |
| 542 |
$schema->txn_begin; |
540 |
$schema->txn_begin; |
| 543 |
# NOTE: Moved this transaction to the front of the routine. Note that inside the while loop below |
541 |
# NOTE: Moved this transaction to the front of the routine. Note that inside the while loop below |
| 544 |
- |
|
|