#'
sub cronlogaction {
my ($infos)=@_;
my $loginfo = (caller(0))[1] . ' ' . $infos;
my $loginfo = (caller(0))[1];
logaction( 'CRONJOBS', 'Run', 0, $loginfo ) if C4::Context->preference('CronjobLog');
$loginfo .= ' ' . $infos if $infos;
logaction( 'CRONJOBS', 'Run', undef, $loginfo ) if C4::Context->preference('CronjobLog');
}
-