[%- IF ACCOUNT_LINE.description %][% ACCOUNT_LINE.description | html %][% END %]
[% IF ACCOUNT_LINE.itemnumber %]([% ACCOUNT_LINE.item.biblio.title | html %])[% END %]
</td>
- [% IF ( ACCOUNT_LINE.amount <= 0 ) %]<td class="credit">[% ACCOUNT_LINE.amount * -1 | $Price %][% ELSE %]<td class="debit">[% ACCOUNT_LINE.amount | $Price %][% END %]</td>
- [% IF ( ACCOUNT_LINE.amountoutstanding <= 0 ) %]<td class="credit">[% ACCOUNT_LINE.amountoutstanding * -1 | $Price %][% ELSE %]<td class="debit">[% ACCOUNT_LINE.amountoutstanding | $Price %][% END %]</td>
+ [% IF ( ACCOUNT_LINE.is_credit ) %]<td class="credit">[% ACCOUNT_LINE.amount * -1 | $Price %][% ELSE %]<td class="debit">[% ACCOUNT_LINE.amount | $Price %][% END %]</td>
+ [% IF ( ACCOUNT_LINE.is_credit ) %]<td class="credit">[% ACCOUNT_LINE.amountoutstanding * -1 | $Price %][% ELSE %]<td class="debit">[% ACCOUNT_LINE.amountoutstanding | $Price %][% END %]</td>
</tr>
[% END %]
</tbody>
);
my $patron = Koha::Patrons->find( $borrowernumber );
-my $total = $patron->account->balance;
-my @accts = Koha::Account::Lines->search(
- { borrowernumber => $patron->borrowernumber },
- { order_by => { -desc => 'accountlines_id' } }
-);
+my $account = $patron->account;
+my $total = $account->balance;
+my $accountlines = $account->lines;
$template->param(
- ACCOUNT_LINES => \@accts,
+ ACCOUNT_LINES => $accountlines,
total => $total,
accountview => 1,
message => scalar $query->param('message') || q{},
m/priority/ and $show_priority = 1;
}
- my $total = $patron->account->balance;
- my @accts = Koha::Account::Lines->search(
- { borrowernumber => $borrower->{borrowernumber} },
- { order_by => { -desc => 'accountlines_id' } }
- );
+ my $account = $patron->account;
+ my $total = $account->balance;
+ my $accountlines = $account->lines;
my $holds = $patron->holds;
SuspendHoldsOpac => C4::Context->preference('SuspendHoldsOpac'),
AutoResumeSuspendedHolds => C4::Context->preference('AutoResumeSuspendedHolds'),
howpriority => $show_priority,
- ACCOUNT_LINES => \@accts,
+ ACCOUNT_LINES => $accountlines,
total => $total,
);