| 
      
            Lines 25-32
          use strict;
      
      
        Link Here
      
     | 
  
        
          | 25 | 
           | 
          25 | 
           | 
        
        
          | 26 | 
          use C4::Context;  | 
          26 | 
          use C4::Context;  | 
        
        
          | 27 | 
          use C4::Branch qw(GetBranchesCount);  | 
          27 | 
          use C4::Branch qw(GetBranchesCount);  | 
        
            
               | 
               | 
              28 | 
              use Koha::DateUtils qw(dt_from_string);  | 
            
        
          | 28 | 
          use Memoize;  | 
          29 | 
          use Memoize;  | 
        
            
              | 29 | 
              use DateTime;  | 
               | 
               | 
            
        
          | 30 | 
          use DateTime::Format::MySQL;  | 
          30 | 
          use DateTime::Format::MySQL;  | 
        
        
          | 31 | 
          use autouse 'Data::Dumper' => qw(Dumper);  | 
          31 | 
          use autouse 'Data::Dumper' => qw(Dumper);  | 
        
        
          | 32 | 
           | 
          32 | 
           | 
        
  
    | 
      
            Lines 1478-1484
          sub GetDailyQuote {
      
      
        Link Here
      
     | 
  
        
          | 1478 | 
                  # update the timestamp for that quote  | 
          1478 | 
                  # update the timestamp for that quote  | 
        
        
          | 1479 | 
                  $query = 'UPDATE quotes SET timestamp = ? WHERE id = ?';  | 
          1479 | 
                  $query = 'UPDATE quotes SET timestamp = ? WHERE id = ?';  | 
        
        
          | 1480 | 
                  $sth = C4::Context->dbh->prepare($query);  | 
          1480 | 
                  $sth = C4::Context->dbh->prepare($query);  | 
        
          
            
              | 1481 | 
                      $sth->execute(DateTime::Format::MySQL->format_datetime(DateTime->now), $quote->{'id'}); | 
              1481 | 
                      $sth->execute(  | 
            
            
               | 
               | 
              1482 | 
                          DateTime::Format::MySQL->format_datetime( dt_from_string() ),  | 
            
            
              | 1483 | 
                          $quote->{'id'}  | 
            
            
              | 1484 | 
                      );  | 
            
        
          | 1482 | 
              }  | 
          1485 | 
              }  | 
        
        
          | 1483 | 
              return $quote;  | 
          1486 | 
              return $quote;  | 
        
        
          | 1484 | 
          }  | 
          1487 | 
          }  | 
        
            
              | 1485 | 
              -   | 
               | 
               |