| 
      
            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  |