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