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