|
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 |
- |
|
|