|
Lines 3274-3279
sub CanBookBeRenewed {
Link Here
|
| 3274 |
my $account = $patron->account; |
3274 |
my $account = $patron->account; |
| 3275 |
my $balance = $account->balance; |
3275 |
my $balance = $account->balance; |
| 3276 |
my $non_issues_charges = $account->non_issues_charges; |
3276 |
my $non_issues_charges = $account->non_issues_charges; |
|
|
3277 |
my $amountoutstanding_for_renewal = |
| 3278 |
C4::Context->preference("OPACFineNoRenewalsIncludeCredits") |
| 3279 |
? $balance |
| 3280 |
: $non_issues_charges; |
| 3277 |
|
3281 |
|
| 3278 |
if ( $restricted and $restrictionblockrenewing ) { |
3282 |
if ( $restricted and $restrictionblockrenewing ) { |
| 3279 |
return ( 0, 'restriction' ); |
3283 |
return ( 0, 'restriction' ); |
|
Lines 3281-3287
sub CanBookBeRenewed {
Link Here
|
| 3281 |
|| ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) ) |
3285 |
|| ( $issue->is_overdue and $overduesblockrenewing eq 'blockitem' ) ) |
| 3282 |
{ |
3286 |
{ |
| 3283 |
return ( 0, 'overdue' ); |
3287 |
return ( 0, 'overdue' ); |
| 3284 |
} elsif ( $finesblockrenewing && $non_issues_charges > $finesblockrenewing ) { |
3288 |
} elsif ( $finesblockrenewing && $amountoutstanding_for_renewal > $finesblockrenewing ) { |
| 3285 |
return ( 0, 'too_much_owing' ); |
3289 |
return ( 0, 'too_much_owing' ); |
| 3286 |
} |
3290 |
} |
| 3287 |
|
3291 |
|
|
Lines 5049-5058
sub _CanBookBeAutoRenewed {
Link Here
|
| 5049 |
} |
5053 |
} |
| 5050 |
|
5054 |
|
| 5051 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
5055 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
| 5052 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
5056 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
| 5053 |
my $account = $patron->account; |
5057 |
my $account = $patron->account; |
| 5054 |
my $non_issues_charges = $account->non_issues_charges; |
5058 |
my $amountoutstanding = |
| 5055 |
if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) { |
5059 |
C4::Context->preference("OPACFineNoRenewalsIncludeCredits") |
|
|
5060 |
? $account->balance |
| 5061 |
: $account->non_issues_charges; |
| 5062 |
if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) { |
| 5056 |
return "auto_too_much_owing"; |
5063 |
return "auto_too_much_owing"; |
| 5057 |
} |
5064 |
} |
| 5058 |
} |
5065 |
} |
| 5059 |
- |
|
|