diff --git a/misc/cronjobs/restrict_patrons_with_failed_notices.pl b/misc/cronjobs/restrict_patrons_with_failed_notices.pl index 2254872a65..39f5dbbe31 100755 --- a/misc/cronjobs/restrict_patrons_with_failed_notices.pl +++ b/misc/cronjobs/restrict_patrons_with_failed_notices.pl @@ -21,16 +21,13 @@ use Modern::Perl; use Getopt::Long; use Pod::Usage; -use C4::Log; +use Koha::Script -cron; use C4::Context; use Koha::Patrons; use C4::Letters; use Koha::Notice::Message; -my $command_line_options = join( " ", @ARGV ); -cronlogaction( { info => $command_line_options } ); - # Getting options my ( $help, $verbose, $confirm ); GetOptions( diff --git a/misc/cronjobs/sftp_file.pl b/misc/cronjobs/sftp_file.pl index 16ce30cacc..98b1364447 100755 --- a/misc/cronjobs/sftp_file.pl +++ b/misc/cronjobs/sftp_file.pl @@ -18,8 +18,8 @@ use Modern::Perl; use C4::Context; use Net::SFTP::Foreign; -use C4::Log qw( cronlogaction ); use Koha::Email; +use Koha::Script -cron; use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Carp qw( carp ); @@ -126,9 +126,6 @@ my $status_email = undef; my $status_email_message = undef; my $sftp_status = undef; -my $command_line_options = join( " ", @ARGV ); -cronlogaction( { info => $command_line_options } ); - GetOptions( 'help|?' => \$help, 'm|man' => \$man, @@ -218,4 +215,3 @@ if ($email) { ) or warn "can't enqueue letter " . $status_email->{code}; } -cronlogaction( { action => 'End', info => "COMPLETED" } );