View | Details | Raw Unified | Return to bug 14494
Collapse All | Expand All

(-)a/C4/Circulation.pm (-16 / +6 lines)
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
- 

Return to bug 14494