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

(-)a/misc/migration_tools/bulkmarcimport.pl (-3 / +7 lines)
Lines 325-331 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
332
Lines 475-481 while () { Link Here
475
            }
476
            }
476
        }
477
        }
477
        unless ($test_parameter) {
478
        unless ($test_parameter) {
478
            $schema->txn_begin;
479
479
480
            if ($authorities) {
480
            if ($authorities) {
481
                my $authtypecode = GuessAuthTypeCode( $record, $heading_fields );
481
                my $authtypecode = GuessAuthTypeCode( $record, $heading_fields );
Lines 726-735 while () { Link Here
726
            @search_engine_records    = ();
726
            @search_engine_records    = ();
727
        }
727
        }
728
        $schema->txn_commit;
728
        $schema->txn_commit;
729
        $schema->txn_begin;
729
    }
730
    }
730
    last if $record_number == $number || $records_exhausted;
731
    last if $record_number == $number || $records_exhausted;
731
}
732
}
732
733
734
if ( !$test_parameter ) {
735
    $schema->txn_commit;
736
}
737
733
if ($fk_off) {
738
if ($fk_off) {
734
    $dbh->do("SET FOREIGN_KEY_CHECKS = 1");
739
    $dbh->do("SET FOREIGN_KEY_CHECKS = 1");
735
}
740
}
736
- 

Return to bug 37020