View | Details | Raw Unified | Return to bug 33228
Collapse All | Expand All

(-)a/circ/circulation.pl (-1 / +8 lines)
Lines 257-262 if ($patron) { Link Here
257
            $template->param("returnbeforeexpiry" => 1);
257
            $template->param("returnbeforeexpiry" => 1);
258
        }
258
        }
259
    }
259
    }
260
    
260
    $template->param(
261
    $template->param(
261
        overduecount => $overdues->count,
262
        overduecount => $overdues->count,
262
        issuecount   => $issues->count,
263
        issuecount   => $issues->count,
Lines 473-479 if ( $patron ) { Link Here
473
        $noissues = 1;
474
        $noissues = 1;
474
    }
475
    }
475
    my $account = $patron->account;
476
    my $account = $patron->account;
476
    if( ( my $owing = $account->non_issues_charges ) > 0 ) {
477
    my $account_lines = $account->outstanding_debits;
478
    my $total = $account_lines->total_outstanding;
479
    
480
    $template->param(
481
        total        => $total,
482
    );
483
    if( ( my $owing = $total ) > 0 ) {
477
        my $noissuescharge = C4::Context->preference("noissuescharge") || 5; # FIXME If noissuescharge == 0 then 5, why??
484
        my $noissuescharge = C4::Context->preference("noissuescharge") || 5; # FIXME If noissuescharge == 0 then 5, why??
478
        $noissues ||= ( not C4::Context->preference("AllowFineOverride") and ( $owing > $noissuescharge ) );
485
        $noissues ||= ( not C4::Context->preference("AllowFineOverride") and ( $owing > $noissuescharge ) );
479
        $template->param(
486
        $template->param(
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/blocked-fines.inc (-1 / +2 lines)
Lines 3-9 Link Here
3
[% IF fines and fines > 0 %]
3
[% IF fines and fines > 0 %]
4
    <li>
4
    <li>
5
        <span class="circ-hlt">Charges:</span>
5
        <span class="circ-hlt">Charges:</span>
6
        <span>Patron has outstanding charges of [% fines | $Price %].</span>
6
        <span>Patron has outstanding charges of [% fines | $Price with_symbol => 1 %].</span>
7
        <span>Total (incl. non-blocking): [% total | $Price with_symbol => 1 %].</span>
7
        [% IF !Koha.Preference('AllowFineOverride') && NoIssuesCharge && fines > NoIssuesCharge %]
8
        [% IF !Koha.Preference('AllowFineOverride') && NoIssuesCharge && fines > NoIssuesCharge %]
8
           <span class="circ-hlt">Checkouts are BLOCKED because fine balance is OVER THE LIMIT.</span>
9
           <span class="circ-hlt">Checkouts are BLOCKED because fine balance is OVER THE LIMIT.</span>
9
        [% END %]
10
        [% END %]
(-)a/members/moremember.pl (-2 / +8 lines)
Lines 238-244 my $balance = 0; Link Here
238
$balance = $patron->account->balance;
238
$balance = $patron->account->balance;
239
239
240
my $account = $patron->account;
240
my $account = $patron->account;
241
if( ( my $owing = $account->non_issues_charges ) > 0 ) {
241
my $account_lines = $account->outstanding_debits;
242
my $total = $account_lines->total_outstanding;
243
244
$template->param(
245
        total => $total,
246
    );
247
248
if( ( my $owing = $total ) > 0 ) {
242
    my $noissuescharge = C4::Context->preference("noissuescharge") || 5; # FIXME If noissuescharge == 0 then 5, why??
249
    my $noissuescharge = C4::Context->preference("noissuescharge") || 5; # FIXME If noissuescharge == 0 then 5, why??
243
    $template->param(
250
    $template->param(
244
        charges => 1,
251
        charges => 1,
245
- 

Return to bug 33228