|
Lines 325-334
my $logger = Koha::Logger->get;
Link Here
|
| 325 |
my $schema = Koha::Database->schema; |
325 |
my $schema = Koha::Database->schema; |
| 326 |
my $lint = MARC::Lint->new; |
326 |
my $lint = MARC::Lint->new; |
| 327 |
|
327 |
|
| 328 |
while () { |
328 |
$schema->txn_begin; |
|
|
329 |
RECORD: while () { |
| 329 |
|
330 |
|
| 330 |
my $record; |
331 |
my $record; |
| 331 |
$record_number++; |
|
|
| 332 |
|
332 |
|
| 333 |
# get record |
333 |
# get record |
| 334 |
eval { $record = $batch->next() }; |
334 |
eval { $record = $batch->next() }; |
|
Lines 476-482
while () {
Link Here
|
| 476 |
} |
476 |
} |
| 477 |
} |
477 |
} |
| 478 |
unless ($test_parameter) { |
478 |
unless ($test_parameter) { |
| 479 |
$schema->txn_begin; |
|
|
| 480 |
|
479 |
|
| 481 |
if ($authorities) { |
480 |
if ($authorities) { |
| 482 |
my $authtypecode = GuessAuthTypeCode( $record, $heading_fields ); |
481 |
my $authtypecode = GuessAuthTypeCode( $record, $heading_fields ); |
|
Lines 727-736
while () {
Link Here
|
| 727 |
@search_engine_records = (); |
726 |
@search_engine_records = (); |
| 728 |
} |
727 |
} |
| 729 |
$schema->txn_commit; |
728 |
$schema->txn_commit; |
|
|
729 |
$schema->txn_begin; |
| 730 |
} |
730 |
} |
| 731 |
last if $record_number == $number || $records_exhausted; |
731 |
last if $record_number == $number || $records_exhausted; |
| 732 |
} |
732 |
} |
| 733 |
|
733 |
|
|
|
734 |
if ( !$test_parameter ) { |
| 735 |
$schema->txn_commit; |
| 736 |
} |
| 737 |
|
| 734 |
if ($fk_off) { |
738 |
if ($fk_off) { |
| 735 |
$dbh->do("SET FOREIGN_KEY_CHECKS = 1"); |
739 |
$dbh->do("SET FOREIGN_KEY_CHECKS = 1"); |
| 736 |
} |
740 |
} |
| 737 |
- |
|
|