View | Details | Raw Unified | Return to bug 37020
Collapse All | Expand All

(-)a/misc/migration_tools/bulkmarcimport.pl (-4 / +7 lines)
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
- 

Return to bug 37020