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

(-)a/misc/migration_tools/bulkmarcimport.pl (-2 / +9 lines)
Lines 121-131 if ((not defined $sourcesubfield) && (not defined $sourcetag)){ Link Here
121
  $sourcesubfield="a";
121
  $sourcesubfield="a";
122
}
122
}
123
123
124
# save the CataloguingLog property : we don't want to log a bulkmarcimport. It will slow the import & 
124
#Disable the syspref cache or else the following UPDATE statements will have no effect
125
C4::Context->disable_syspref_cache();
126
127
# save the CataloguingLog and AuthoritiesLog properties : we don't want to log a bulkmarcimport. It will slow the import &
125
# will create problems in the action_logs table, that can't handle more than 1 entry per second per user.
128
# will create problems in the action_logs table, that can't handle more than 1 entry per second per user.
126
my $CataloguingLog = C4::Context->preference('CataloguingLog');
129
my $CataloguingLog = C4::Context->preference('CataloguingLog');
127
$dbh->do("UPDATE systempreferences SET value=0 WHERE variable='CataloguingLog'");
130
$dbh->do("UPDATE systempreferences SET value=0 WHERE variable='CataloguingLog'");
128
131
132
my $AuthoritiesLog = C4::Context->preference('AuthoritiesLog');
133
$dbh->do("UPDATE systempreferences SET value=0 WHERE variable='AuthoritiesLog'");
134
129
if ($fk_off) {
135
if ($fk_off) {
130
	$dbh->do("SET FOREIGN_KEY_CHECKS = 0");
136
	$dbh->do("SET FOREIGN_KEY_CHECKS = 0");
131
}
137
}
Lines 496-501 if ($fk_off) { Link Here
496
502
497
# restore CataloguingLog
503
# restore CataloguingLog
498
$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'");
504
$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'");
505
# restore AuthoritiesLog
506
$dbh->do("UPDATE systempreferences SET value=$AuthoritiesLog WHERE variable='AuthoritiesLog'");
499
507
500
my $timeneeded = gettimeofday - $starttime;
508
my $timeneeded = gettimeofday - $starttime;
501
print "\n$i MARC records done in $timeneeded seconds\n";
509
print "\n$i MARC records done in $timeneeded seconds\n";
502
- 

Return to bug 12720