Lines 83-97
sub logaction {
Link Here
|
83 |
|
83 |
|
84 |
=item cronlogaction |
84 |
=item cronlogaction |
85 |
|
85 |
|
86 |
&cronlogaction(); |
86 |
&cronlogaction($infos); |
87 |
|
87 |
|
88 |
Convenience routine to add a record into action_logs table from a cron job. |
88 |
Convenience routine to add a record into action_logs table from a cron job. |
|
|
89 |
Logs the path and name of the calling script plus the information privided by param $infos. |
89 |
|
90 |
|
90 |
=cut |
91 |
=cut |
91 |
|
92 |
|
92 |
#' |
93 |
#' |
93 |
sub cronlogaction { |
94 |
sub cronlogaction { |
94 |
logaction( 'CRONJOBS', 'Run', 0, (caller(0))[1] ) if C4::Context->preference('CronjobLog'); |
95 |
my ($infos)=@_; |
|
|
96 |
my $loginfo = (caller(0))[1] . ' ' . $infos; |
97 |
logaction( 'CRONJOBS', 'Run', 0, $loginfo ) if C4::Context->preference('CronjobLog'); |
95 |
} |
98 |
} |
96 |
|
99 |
|
97 |
|
100 |
|
98 |
- |
|
|