|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
use 5.10.0; |
2 |
use Modern::Perl; |
| 3 |
use strict; |
|
|
| 4 |
use warnings; |
| 5 |
use Getopt::Long; |
3 |
use Getopt::Long; |
| 6 |
use C4::Context; |
4 |
use C4::Context; |
| 7 |
use C4::Biblio; |
5 |
use C4::Biblio; |
|
Lines 94-101
while ( my ( $biblionumber, $biblioitemnumber, $frameworkcode ) = $sth->fetchrow
Link Here
|
| 94 |
} |
92 |
} |
| 95 |
} |
93 |
} |
| 96 |
|
94 |
|
| 97 |
$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'"); |
95 |
my $sthCataloguingLog = $dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='CataloguingLog'"); |
| 98 |
$dbh->do("UPDATE systempreferences SET value=$dontmerge where variable='dontmerge'"); |
96 |
$sthCataloguingLog->execute($CataloguingLog); |
|
|
97 |
my $sthdontmerge = $dbh->prepare("UPDATE systempreferences SET value=? WHERE variable='dontmerge'"); |
| 98 |
$sthdontmerge->execute($dontmerge); |
| 99 |
$dbh->commit() unless $test_parameter; |
99 |
$dbh->commit() unless $test_parameter; |
| 100 |
my $timeneeded = time() - $starttime; |
100 |
my $timeneeded = time() - $starttime; |
| 101 |
print "$count MARC record done in $timeneeded seconds\n"; |
101 |
print "$count MARC record done in $timeneeded seconds\n"; |
| 102 |
- |
|
|