@@ -, +, @@ UNIMARC_sync_date_created_with_marc_biblio.pl --- .../maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl | 11 +++++++++++ 1 file changed, 11 insertions(+) --- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl +++ a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl @@ -12,6 +12,7 @@ BEGIN { eval { require "$FindBin::Bin/../kohalib.pl" }; } +use C4::Context; use C4::Biblio; use Getopt::Long; @@ -207,6 +208,13 @@ sub process { $dbh = C4::Context->dbh; my $mod_count = 0; + # Disable the syspref cache so we can change logging settings + C4::Context->disable_syspref_cache(); + # Save current CataloguingLog syspref value + my $CataloguingLog = C4::Context->preference('CataloguingLog'); + # Disable logging + C4::Context->set_preference( 'CataloguingLog', 0 ); + my $query = q{ SELECT biblionumber FROM biblio @@ -229,6 +237,9 @@ sub process { } $verbose and print "Number of modified biblios: " . $mod_count . "\n"; + + # Restore CataloguingLog + C4::Context->set_preference( 'CataloguingLog', $CataloguingLog ); } if ( lc( C4::Context->preference('marcflavour') ) eq "unimarc" ) { --