|
Lines 3246-3251
sub CanBookBeRenewed {
Link Here
|
| 3246 |
my $account = $patron->account; |
3246 |
my $account = $patron->account; |
| 3247 |
my $balance = $account->balance; |
3247 |
my $balance = $account->balance; |
| 3248 |
my $non_issues_charges = $account->non_issues_charges; |
3248 |
my $non_issues_charges = $account->non_issues_charges; |
|
|
3249 |
my $amountoutstanding_for_renewal = |
| 3250 |
C4::Context->preference("OPACFineNoRenewalsIncludeCredits") |
| 3251 |
? $balance |
| 3252 |
: $non_issues_charges; |
| 3249 |
|
3253 |
|
| 3250 |
if ( $restricted and $restrictionblockrenewing ) { |
3254 |
if ( $restricted and $restrictionblockrenewing ) { |
| 3251 |
return ( 0, 'restriction' ); |
3255 |
return ( 0, 'restriction' ); |
|
Lines 3253-3259
sub CanBookBeRenewed {
Link Here
|
| 3253 |
|| ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) ) |
3257 |
|| ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) ) |
| 3254 |
{ |
3258 |
{ |
| 3255 |
return ( 0, 'overdue' ); |
3259 |
return ( 0, 'overdue' ); |
| 3256 |
} elsif ( $finesblockrenewing && $non_issues_charges > $finesblockrenewing ) { |
3260 |
} elsif ( $finesblockrenewing && $amountoutstanding_for_renewal > $finesblockrenewing ) { |
| 3257 |
return ( 0, 'too_much_owing' ); |
3261 |
return ( 0, 'too_much_owing' ); |
| 3258 |
} |
3262 |
} |
| 3259 |
|
3263 |
|
|
Lines 4990-4999
sub _CanBookBeAutoRenewed {
Link Here
|
| 4990 |
} |
4994 |
} |
| 4991 |
|
4995 |
|
| 4992 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
4996 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
| 4993 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
4997 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
| 4994 |
my $account = $patron->account; |
4998 |
my $account = $patron->account; |
| 4995 |
my $non_issues_charges = $account->non_issues_charges; |
4999 |
my $amountoutstanding = |
| 4996 |
if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) { |
5000 |
C4::Context->preference("OPACFineNoRenewalsIncludeCredits") |
|
|
5001 |
? $account->balance |
| 5002 |
: $account->non_issues_charges; |
| 5003 |
if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) { |
| 4997 |
return "auto_too_much_owing"; |
5004 |
return "auto_too_much_owing"; |
| 4998 |
} |
5005 |
} |
| 4999 |
} |
5006 |
} |
| 5000 |
- |
|
|