| Lines 701-707
          sub CanBookBeIssued {
      
      
        Link Here | 
        
          | 701 |     } | 701 |     } | 
        
          | 702 |     if ($duedate) { | 702 |     if ($duedate) { | 
        
          | 703 |         my $today = $now->clone(); | 703 |         my $today = $now->clone(); | 
          
            
              | 704 |         $today->truncate( to => 'minutes'); | 704 |         $today->truncate( to => 'minute'); | 
        
          | 705 |         if (DateTime->compare($duedate,$today) == -1 ) { # duedate cannot be before now | 705 |         if (DateTime->compare($duedate,$today) == -1 ) { # duedate cannot be before now | 
        
          | 706 |             $needsconfirmation{INVALID_DATE} = output_pref($duedate); | 706 |             $needsconfirmation{INVALID_DATE} = output_pref($duedate); | 
        
          | 707 |         } | 707 |         } | 
  
    | Lines 738-745
          sub CanBookBeIssued {
      
      
        Link Here | 
        
          | 738 |                 day   => $d, | 738 |                 day   => $d, | 
        
          | 739 |                 time_zone => C4::Context->tz, | 739 |                 time_zone => C4::Context->tz, | 
        
          | 740 |             ); | 740 |             ); | 
          
            
              | 741 |             $expiry_dt->truncate( to => 'days'); | 741 |             $expiry_dt->truncate( to => 'day'); | 
            
              | 742 |             my $today = $now->clone()->truncate(to => 'days'); | 742 |             my $today = $now->clone()->truncate(to => 'day'); | 
        
          | 743 |             if (DateTime->compare($today, $expiry_dt) == 1) { | 743 |             if (DateTime->compare($today, $expiry_dt) == 1) { | 
        
          | 744 |                 $issuingimpossible{EXPIRED} = 1; | 744 |                 $issuingimpossible{EXPIRED} = 1; | 
        
          | 745 |             } | 745 |             } | 
  
    | Lines 1051-1057
          sub AddIssue {
      
      
        Link Here | 
        
          | 1051 |             $datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); | 1051 |             $datedue = CalcDateDue( $issuedate, $itype, $branch, $borrower ); | 
        
          | 1052 |  | 1052 |  | 
        
          | 1053 |         } | 1053 |         } | 
          
            
              | 1054 |         $datedue->truncate( to => 'minutes'); | 1054 |         $datedue->truncate( to => 'minute'); | 
        
          | 1055 |         $sth->execute( | 1055 |         $sth->execute( | 
        
          | 1056 |             $borrower->{'borrowernumber'},      # borrowernumber | 1056 |             $borrower->{'borrowernumber'},      # borrowernumber | 
        
          | 1057 |             $item->{'itemnumber'},              # itemnumber | 1057 |             $item->{'itemnumber'},              # itemnumber | 
  
    | Lines 2081-2090
          sub GetItemIssue {
      
      
        Link Here | 
        
          | 2081 |     my $data = $sth->fetchrow_hashref; | 2081 |     my $data = $sth->fetchrow_hashref; | 
        
          | 2082 |     return unless $data; | 2082 |     return unless $data; | 
        
          | 2083 |     $data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); | 2083 |     $data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); | 
          
            
              | 2084 |     $data->{issuedate}->truncate(to => 'minutes'); | 2084 |     $data->{issuedate}->truncate(to => 'minute'); | 
        
          | 2085 |     $data->{date_due} = dt_from_string($data->{date_due}, 'sql'); | 2085 |     $data->{date_due} = dt_from_string($data->{date_due}, 'sql'); | 
          
            
              | 2086 |     $data->{date_due}->truncate(to => 'minutes'); | 2086 |     $data->{date_due}->truncate(to => 'minute'); | 
            
              | 2087 |     my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minutes'); | 2087 |     my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); | 
        
          | 2088 |     $data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; | 2088 |     $data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; | 
        
          | 2089 |     return $data; | 2089 |     return $data; | 
        
          | 2090 | } | 2090 | } | 
  
    | Lines 2129-2135
          sub GetItemIssues {
      
      
        Link Here | 
        
          | 2129 |     my ( $itemnumber, $history ) = @_; | 2129 |     my ( $itemnumber, $history ) = @_; | 
        
          | 2130 |      | 2130 |      | 
        
          | 2131 |     my $today = DateTime->now( time_zome => C4::Context->tz);  # get today date | 2131 |     my $today = DateTime->now( time_zome => C4::Context->tz);  # get today date | 
          
            
              | 2132 |     $today->truncate( to => 'minutes' ); | 2132 |     $today->truncate( to => 'minute' ); | 
        
          | 2133 |     my $sql = "SELECT * FROM issues | 2133 |     my $sql = "SELECT * FROM issues | 
        
          | 2134 |               JOIN borrowers USING (borrowernumber) | 2134 |               JOIN borrowers USING (borrowernumber) | 
        
          | 2135 |               JOIN items     USING (itemnumber) | 2135 |               JOIN items     USING (itemnumber) | 
  
    | Lines 2151-2157
          sub GetItemIssues {
      
      
        Link Here | 
        
          | 2151 |     my $results = $sth->fetchall_arrayref({}); | 2151 |     my $results = $sth->fetchall_arrayref({}); | 
        
          | 2152 |     foreach (@$results) { | 2152 |     foreach (@$results) { | 
        
          | 2153 |         my $date_due = dt_from_string($_->{date_due},'sql'); | 2153 |         my $date_due = dt_from_string($_->{date_due},'sql'); | 
          
            
              | 2154 |         $date_due->truncate( to => 'minutes' ); | 2154 |         $date_due->truncate( to => 'minute' ); | 
        
          | 2155 |  | 2155 |  | 
        
          | 2156 |         $_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; | 2156 |         $_->{overdue} = (DateTime->compare($date_due, $today) == -1) ? 1 : 0; | 
        
          | 2157 |     } | 2157 |     } |