Lines 12-17
BEGIN {
Link Here
|
12 |
eval { require "$FindBin::Bin/../kohalib.pl" }; |
12 |
eval { require "$FindBin::Bin/../kohalib.pl" }; |
13 |
} |
13 |
} |
14 |
|
14 |
|
|
|
15 |
use C4::Context; |
15 |
use C4::Biblio; |
16 |
use C4::Biblio; |
16 |
use Getopt::Long; |
17 |
use Getopt::Long; |
17 |
|
18 |
|
Lines 207-212
sub process {
Link Here
|
207 |
$dbh = C4::Context->dbh; |
208 |
$dbh = C4::Context->dbh; |
208 |
my $mod_count = 0; |
209 |
my $mod_count = 0; |
209 |
|
210 |
|
|
|
211 |
# Disable the syspref cache so we can change logging settings |
212 |
C4::Context->disable_syspref_cache(); |
213 |
# Save current CataloguingLog syspref value |
214 |
my $CataloguingLog = C4::Context->preference('CataloguingLog'); |
215 |
# Disable logging |
216 |
C4::Context->set_preference( 'CataloguingLog', 0 ); |
217 |
|
210 |
my $query = q{ |
218 |
my $query = q{ |
211 |
SELECT biblionumber |
219 |
SELECT biblionumber |
212 |
FROM biblio |
220 |
FROM biblio |
Lines 229-234
sub process {
Link Here
|
229 |
} |
237 |
} |
230 |
|
238 |
|
231 |
$verbose and print "Number of modified biblios: " . $mod_count . "\n"; |
239 |
$verbose and print "Number of modified biblios: " . $mod_count . "\n"; |
|
|
240 |
|
241 |
# Restore CataloguingLog |
242 |
C4::Context->set_preference( 'CataloguingLog', $CataloguingLog ); |
232 |
} |
243 |
} |
233 |
|
244 |
|
234 |
if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) { |
245 |
if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) { |
235 |
- |
|
|