| 
      
            Lines 767-790
          sub CanBookBeIssued {
      
      
        Link Here
      
     | 
  
        
          | 767 | 
              if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { | 
          767 | 
              if ( !defined $borrower->{dateexpiry} || $borrower->{'dateexpiry'} eq '0000-00-00') { | 
        
        
          | 768 | 
                  $issuingimpossible{EXPIRED} = 1; | 
          768 | 
                  $issuingimpossible{EXPIRED} = 1; | 
        
        
          | 769 | 
              } else { | 
          769 | 
              } else { | 
        
          
            
              | 770 | 
                      my ($y, $m, $d) =  split /-/,$borrower->{'dateexpiry'}; | 
              770 | 
                      my $expiry_dt = dt_from_string( $borrower->{dateexpiry}, 'sql' ); | 
            
            
              | 771 | 
                      if ($y && $m && $d) { # are we really writing oinvalid dates to borrs | 
              771 | 
                      $expiry_dt->truncate( to => 'day');  | 
            
            
              | 772 | 
                          my $expiry_dt = DateTime->new(  | 
              772 | 
                      my $today = $now->clone()->truncate(to => 'day');  | 
            
            
              | 773 | 
                              year => $y,  | 
              773 | 
               | 
            
            
              | 774 | 
                              month => $m,  | 
              774 | 
                      if ($expiry_dt->year < 9999 && DateTime->compare($today, $expiry_dt) == 1) { | 
            
            
              | 775 | 
                              day   => $d,  | 
               | 
               | 
            
            
              | 776 | 
                              time_zone => C4::Context->tz,  | 
            
            
              | 777 | 
                          );  | 
            
            
              | 778 | 
                          $expiry_dt->truncate( to => 'day');  | 
            
            
              | 779 | 
                          my $today = $now->clone()->truncate(to => 'day');  | 
            
            
              | 780 | 
                          if (DateTime->compare($today, $expiry_dt) == 1) { | 
            
            
              | 781 | 
                              $issuingimpossible{EXPIRED} = 1; | 
            
            
              | 782 | 
                          }  | 
            
            
              | 783 | 
                      } else { | 
            
            
              | 784 | 
                          carp("Invalid expity date in borr"); | 
            
        
          | 785 | 
                      $issuingimpossible{EXPIRED} = 1; | 
          775 | 
                      $issuingimpossible{EXPIRED} = 1; | 
        
        
          | 786 | 
                  }  | 
          776 | 
                  }  | 
        
        
          | 787 | 
              }  | 
          777 | 
              }  | 
        
            
               | 
               | 
              778 | 
               | 
            
        
          | 788 | 
              #  | 
          779 | 
              #  | 
        
        
          | 789 | 
              # BORROWER STATUS  | 
          780 | 
              # BORROWER STATUS  | 
        
        
          | 790 | 
              #  | 
          781 | 
              #  | 
        
            
              | 791 | 
              -   | 
               | 
               |