Lines 252-264
else {
Link Here
|
252 |
# the SQL query to search on isbn |
252 |
# the SQL query to search on isbn |
253 |
my $sth_isbn = $dbh->prepare("SELECT biblionumber,biblioitemnumber FROM biblioitems WHERE isbn=?"); |
253 |
my $sth_isbn = $dbh->prepare("SELECT biblionumber,biblioitemnumber FROM biblioitems WHERE isbn=?"); |
254 |
|
254 |
|
255 |
$dbh->{AutoCommit} = 0; |
|
|
256 |
my $loghandle; |
255 |
my $loghandle; |
257 |
if ($logfile){ |
256 |
if ($logfile){ |
258 |
$loghandle= IO::File->new($logfile, $writemode) ; |
257 |
$loghandle= IO::File->new($logfile, $writemode) ; |
259 |
print $loghandle "id;operation;status\n"; |
258 |
print $loghandle "id;operation;status\n"; |
260 |
} |
259 |
} |
261 |
|
260 |
|
|
|
261 |
my $schema = Koha::Database->schema; |
262 |
$schema->txn_begin; |
262 |
RECORD: while ( ) { |
263 |
RECORD: while ( ) { |
263 |
my $record; |
264 |
my $record; |
264 |
# get records |
265 |
# get records |
Lines 537-550
RECORD: while ( ) {
Link Here
|
537 |
} |
538 |
} |
538 |
$yamlhash->{$originalid} = $biblionumber if ($yamlfile); |
539 |
$yamlhash->{$originalid} = $biblionumber if ($yamlfile); |
539 |
} |
540 |
} |
540 |
$dbh->commit() if (0 == $i % $commitnum); |
541 |
if ( 0 == $i % $commitnum ) { |
|
|
542 |
$schema->txn_commit; |
543 |
$schema->txn_begin; |
544 |
} |
541 |
} |
545 |
} |
542 |
print $record->as_formatted()."\n" if ($verbose//0)==2; |
546 |
print $record->as_formatted()."\n" if ($verbose//0)==2; |
543 |
last if $i == $number; |
547 |
last if $i == $number; |
544 |
} |
548 |
} |
545 |
$dbh->commit(); |
549 |
$schema->txn_commit; |
546 |
$dbh->{AutoCommit} = 1; |
|
|
547 |
|
548 |
|
550 |
|
549 |
if ($fk_off) { |
551 |
if ($fk_off) { |
550 |
$dbh->do("SET FOREIGN_KEY_CHECKS = 1"); |
552 |
$dbh->do("SET FOREIGN_KEY_CHECKS = 1"); |
551 |
- |
|
|