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