diff --git a/circ/circulation.pl b/circ/circulation.pl index 8f3bee7779..b890226cbc 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -751,6 +751,18 @@ if ($patron) { } } + # Check the debt of this patron's linked accounts + my $no_issues_charge_linked = $patron_charge_limits->{NoIssuesChargeLinkedAccounts}->{limit}; + if ( defined $no_issues_charge_linked ) { + if ( $patron_charge_limits->{NoIssuesChargeLinkedAccounts}->{overlimit} ) { + $template->param( + charges_linked_accounts => 1, + chargesamount_linked_accounts => $patron_charge_limits->{NoIssuesChargeLinkedAccounts}->{charge}, + ); + $noissues = 1 unless C4::Context->preference("allowfineoverride"); + } + } + if ( $patron->has_overdues ) { $template->param( odues => 1 ); } diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc index acf6155d82..6b75225d3d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/patron_messages.inc @@ -6,7 +6,7 @@ [% SET return_claims = patron.return_claims %] [% SET logged_in_branchcode = Branches.GetLoggedInBranchcode() %] -[% IF ( has_modifications || warndeparture || returnbeforeexpiry || expired || patron.gonenoaddress || patron.lost || userdebarred || odues || ( return_claims.count > ClaimReturnedWarningThreshold ) || age_out_of_range || age_limitations || limited_category || charges || charges_guarantors_guarantees || charges_guarantees || credits || patron.account_locked ) %] +[% IF ( has_modifications || warndeparture || returnbeforeexpiry || expired || patron.gonenoaddress || patron.lost || userdebarred || odues || ( return_claims.count > ClaimReturnedWarningThreshold ) || age_out_of_range || age_limitations || limited_category || charges || charges_guarantors_guarantees || charges_guarantees || charges_linked_accounts || credits || patron.account_locked ) %]