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 |
- |
|
|