@@ -, +, @@ `perl misc/link_bibs_to_authorities.pl; perl misc/cronjobs/merge_authorities.pl -b; perl misc/migration_tools/remove_unused_authorities.pl --confirm` --- misc/cronjobs/merge_authorities.pl | 2 ++ misc/link_bibs_to_authorities.pl | 3 +++ misc/migration_tools/remove_unused_authorities.pl | 6 +++++- 3 files changed, 10 insertions(+), 1 deletion(-) --- a/misc/cronjobs/merge_authorities.pl +++ a/misc/cronjobs/merge_authorities.pl @@ -7,6 +7,7 @@ use Time::HiRes qw( gettimeofday ); use Koha::Script -cron; use C4::AuthoritiesMarc qw( GetAuthority merge ); +use C4::Log qw( cronlogaction ); use Koha::Authority::MergeRequests; use constant RESET_HOURS => 24; @@ -21,6 +22,7 @@ GetOptions( $|=1; # flushes output if ( $params->{batch} ) { + cronlogaction(); handle_batch($params); } else { pod2usage(1); --- a/misc/link_bibs_to_authorities.pl +++ a/misc/link_bibs_to_authorities.pl @@ -19,6 +19,7 @@ use C4::Biblio qw( LinkBibHeadingsToAuthorities ModBiblio ); +use C4::Log qw( cronlogaction ); use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Time::HiRes qw( time ); @@ -60,6 +61,8 @@ if ( not $result or $want_help ) { usage(); } +cronlogaction(); + my $linker_module = "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' ); unless ( can_load( modules => { $linker_module => undef } ) ) { --- a/misc/migration_tools/remove_unused_authorities.pl +++ a/misc/migration_tools/remove_unused_authorities.pl @@ -24,7 +24,8 @@ use Modern::Perl; use Koha::Script; use C4::Context; -use C4::AuthoritiesMarc; +use C4::AuthoritiesMarc qw( DelAuthority ); +use C4::Log qw( cronlogaction ); use Getopt::Long qw( GetOptions ); use Koha::SearchEngine::Search; @@ -42,6 +43,9 @@ if ( $want_help || !($test || $confirm) ) { print_usage(); exit 0; } + +cronlogaction(); + if ($test) { print "*** Testing only, authorities will not be deleted. ***\n"; } --