Lines 903-928
sub CanBookBeIssued {
Link Here
|
903 |
$alerts{OTHER_CHARGES} = sprintf( "%.2f", $other_charges ); |
903 |
$alerts{OTHER_CHARGES} = sprintf( "%.2f", $other_charges ); |
904 |
} |
904 |
} |
905 |
|
905 |
|
906 |
my ($blocktype, $count) = C4::Members::IsMemberBlocked($borrower->{'borrowernumber'}); |
906 |
my $patron = Koha::Patrons->find( $borrower->{borrowernumber} ); |
907 |
if ($blocktype == -1) { |
907 |
if ( my $debarred_date = $patron->is_debarred ) { |
908 |
## patron has outstanding overdue loans |
908 |
# patron has accrued fine days or has a restriction. $count is a date |
909 |
if ( C4::Context->preference("OverduesBlockCirc") eq 'block'){ |
909 |
if ($debarred_date eq '9999-12-31') { |
910 |
$issuingimpossible{USERBLOCKEDOVERDUE} = $count; |
910 |
$issuingimpossible{USERBLOCKEDNOENDDATE} = $debarred_date; |
911 |
} |
|
|
912 |
elsif ( C4::Context->preference("OverduesBlockCirc") eq 'confirmation'){ |
913 |
$needsconfirmation{USERBLOCKEDOVERDUE} = $count; |
914 |
} |
915 |
} elsif($blocktype == 1) { |
916 |
# patron has accrued fine days or has a restriction. $count is a date |
917 |
if ($count eq '9999-12-31') { |
918 |
$issuingimpossible{USERBLOCKEDNOENDDATE} = $count; |
919 |
} |
911 |
} |
920 |
else { |
912 |
else { |
921 |
$issuingimpossible{USERBLOCKEDWITHENDDATE} = $count; |
913 |
$issuingimpossible{USERBLOCKEDWITHENDDATE} = $debarred_date; |
|
|
914 |
} |
915 |
} elsif ( my $num_overdues = $patron->has_overdues ) { |
916 |
## patron has outstanding overdue loans |
917 |
if ( C4::Context->preference("OverduesBlockCirc") eq 'block'){ |
918 |
$issuingimpossible{USERBLOCKEDOVERDUE} = $num_overdues; |
919 |
} |
920 |
elsif ( C4::Context->preference("OverduesBlockCirc") eq 'confirmation'){ |
921 |
$needsconfirmation{USERBLOCKEDOVERDUE} = $num_overdues; |
922 |
} |
922 |
} |
923 |
} |
923 |
} |
924 |
|
924 |
|
925 |
# |
|
|
926 |
# JB34 CHECKS IF BORROWERS DON'T HAVE ISSUE TOO MANY BOOKS |
925 |
# JB34 CHECKS IF BORROWERS DON'T HAVE ISSUE TOO MANY BOOKS |
927 |
# |
926 |
# |
928 |
my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout } ); |
927 |
my $toomany = TooMany( $borrower, $item->{biblionumber}, $item, { onsite_checkout => $onsite_checkout } ); |
Lines 945-951
sub CanBookBeIssued {
Link Here
|
945 |
# |
944 |
# |
946 |
# CHECKPREVCHECKOUT: CHECK IF ITEM HAS EVER BEEN LENT TO PATRON |
945 |
# CHECKPREVCHECKOUT: CHECK IF ITEM HAS EVER BEEN LENT TO PATRON |
947 |
# |
946 |
# |
948 |
my $patron = Koha::Patrons->find($borrower->{borrowernumber}); |
947 |
$patron = Koha::Patrons->find($borrower->{borrowernumber}); |
949 |
my $wants_check = $patron->wants_check_for_previous_checkout; |
948 |
my $wants_check = $patron->wants_check_for_previous_checkout; |
950 |
$needsconfirmation{PREVISSUE} = 1 |
949 |
$needsconfirmation{PREVISSUE} = 1 |
951 |
if ($wants_check and $patron->do_check_for_previous_checkout($item)); |
950 |
if ($wants_check and $patron->do_check_for_previous_checkout($item)); |