| 
      
            Lines 656-662
          sub update_sql {
      
      
        Link Here
      
     | 
  
        
          | 656 | 
              my $cache_expiry = $fields->{cache_expiry}; | 
          656 | 
              my $cache_expiry = $fields->{cache_expiry}; | 
        
        
          | 657 | 
              my $public = $fields->{public}; | 
          657 | 
              my $public = $fields->{public}; | 
        
        
          | 658 | 
           | 
          658 | 
           | 
        
          
            
              | 659 | 
                  $sql =~ s/(\s*\;\s*)$//;    # removes trailing whitespace and /;/  | 
              659 | 
                  $sql =~ s/(\s*\;\s*)$// if defined $sql;    # removes trailing whitespace and /;/  | 
            
        
          | 660 | 
              my $report = Koha::Reports->find($id);  | 
          660 | 
              my $report = Koha::Reports->find($id);  | 
        
        
          | 661 | 
              $report->last_modified(dt_from_string);  | 
          661 | 
              $report->last_modified(dt_from_string);  | 
        
        
          | 662 | 
              $report->savedsql($sql);  | 
          662 | 
              $report->savedsql($sql);  | 
        
            
              | 663 | 
              -   | 
               | 
               |