|
Lines 29-34
use utf8;
Link Here
|
| 29 |
# can be run as frequently as required |
29 |
# can be run as frequently as required |
| 30 |
# log messages are appended to logdir/editrace.log |
30 |
# log messages are appended to logdir/editrace.log |
| 31 |
|
31 |
|
|
|
32 |
use Koha::Cron; |
| 32 |
use C4::Context; |
33 |
use C4::Context; |
| 33 |
use Log::Log4perl qw(:easy); |
34 |
use Log::Log4perl qw(:easy); |
| 34 |
use Koha::Database; |
35 |
use Koha::Database; |
|
Lines 36-46
use Koha::EDI qw( process_quote process_invoice process_ordrsp);
Link Here
|
| 36 |
use Koha::Edifact::Transport; |
37 |
use Koha::Edifact::Transport; |
| 37 |
use Fcntl qw( :DEFAULT :flock :seek ); |
38 |
use Fcntl qw( :DEFAULT :flock :seek ); |
| 38 |
|
39 |
|
| 39 |
C4::Context->set_userenv( |
|
|
| 40 |
'-1', '-1', undef, 'CRON', 'CRON', undef, |
| 41 |
undef, undef, undef, undef, undef |
| 42 |
); |
| 43 |
|
| 44 |
my $logdir = C4::Context->config('logdir'); |
40 |
my $logdir = C4::Context->config('logdir'); |
| 45 |
|
41 |
|
| 46 |
# logging set to trace as this may be what you |
42 |
# logging set to trace as this may be what you |