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