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

(-)a/misc/batchRebuildItemsTables.pl (-6 / +5 lines)
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
- 

Return to bug 11399