| 
      
            Lines 34-41
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 34 | 
          }  | 
          34 | 
          }  | 
        
        
          | 35 | 
           | 
          35 | 
           | 
        
        
          | 36 | 
          my $input = new CGI;  | 
          36 | 
          my $input = new CGI;  | 
        
            
               | 
               | 
              37 | 
              my $base;  | 
            
            
              | 38 | 
               | 
            
            
              | 39 | 
              if ( C4::Context->config('supportdir') ) { | 
            
            
              | 40 | 
                   $base = C4::Context->config('supportdir'); | 
            
            
              | 41 | 
              }  | 
            
            
              | 42 | 
              else {  | 
            
            
              | 43 | 
                   $base        = "/usr/share/koha/bin";  | 
            
            
              | 44 | 
              }  | 
            
        
          | 37 | 
           | 
          45 | 
           | 
        
            
              | 38 | 
              my $base        = C4::Context->config('intranetdir'); | 
               | 
               | 
            
        
          | 39 | 
          my $CONFIG_NAME = $ENV{'KOHA_CONF'}; | 
          46 | 
          my $CONFIG_NAME = $ENV{'KOHA_CONF'}; | 
        
        
          | 40 | 
           | 
          47 | 
           | 
        
        
          | 41 | 
          my ( $template, $borrowernumber, $cookie ) = get_template_and_user(  | 
          48 | 
          my ( $template, $borrowernumber, $cookie ) = get_template_and_user(  | 
        
  
    | 
      
            Lines 68-75
          if ( $mode eq 'job_add' ) {
      
      
        Link Here
      
     | 
  
        
          | 68 | 
              my $format = $input->param('format'); | 
          75 | 
              my $format = $input->param('format'); | 
        
        
          | 69 | 
              my $email  = $input->param('email'); | 
          76 | 
              my $email  = $input->param('email'); | 
        
        
          | 70 | 
              my $command =  | 
          77 | 
              my $command =  | 
        
          
            
              | 71 | 
                      "EXPORT KOHA_CONF=\"$CONFIG_NAME\"; " . $base  | 
              78 | 
                      "export KOHA_CONF=\"$CONFIG_NAME\"; " . $base  | 
            
            
              | 72 | 
                    . "/tools/runreport.pl $report $format $email";  | 
              79 | 
                    . "/cronjobs/runreport.pl $report --format=$format --to=$email";  | 
            
        
          | 73 | 
           | 
          80 | 
           | 
        
        
          | 74 | 
              if ($recurring) { | 
          81 | 
              if ($recurring) { | 
        
        
          | 75 | 
                  my $frequency = $input->param('frequency'); | 
          82 | 
                  my $frequency = $input->param('frequency'); | 
        
            
              | 76 | 
              -   | 
               | 
               |