|
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 5022-5031
sub _CanBookBeAutoRenewed {
Link Here
|
| 5022 |
} |
5026 |
} |
| 5023 |
|
5027 |
|
| 5024 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
5028 |
if ( C4::Context->preference('OPACFineNoRenewalsBlockAutoRenew') ) { |
| 5025 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
5029 |
my $fine_no_renewals = C4::Context->preference("FineNoRenewals"); |
| 5026 |
my $account = $patron->account; |
5030 |
my $account = $patron->account; |
| 5027 |
my $non_issues_charges = $account->non_issues_charges; |
5031 |
my $amountoutstanding = |
| 5028 |
if ( $non_issues_charges and $non_issues_charges > $fine_no_renewals ) { |
5032 |
C4::Context->preference("OPACFineNoRenewalsIncludeCredits") |
|
|
5033 |
? $account->balance |
| 5034 |
: $account->non_issues_charges; |
| 5035 |
if ( $amountoutstanding and $amountoutstanding > $fine_no_renewals ) { |
| 5029 |
return "auto_too_much_owing"; |
5036 |
return "auto_too_much_owing"; |
| 5030 |
} |
5037 |
} |
| 5031 |
} |
5038 |
} |
| 5032 |
- |
|
|