28 lines
1.1 KiB
Plaintext
28 lines
1.1 KiB
Plaintext
% title 'Transfer history';
|
|
|
|
<p>Reverse ordered list:</p>
|
|
|
|
<table class="history">
|
|
<tr><th>Timestamp</th><th>Purpose (own/other/debit)</th><th>debit</th><th>credit</th></tr>
|
|
% while ( my $hr = $history->next ) {
|
|
<tr><td><%= $hr->date %></td><td>
|
|
% my $that = $hr->that_credit;
|
|
% my $this = $hr->this_credit;
|
|
% my $credit_ref = begin
|
|
% my $that_acc = $that && $that->account;
|
|
% my $that_account_id = $that ? $that_acc->ID : q{(out)};
|
|
% my $that_credit_id = $that ? $that->credId : "";
|
|
%== sprintf q{<strong>%s</strong><a href="/credit/%2$d">%d</a>}, shift() ? ($that_account_id.q{:}, $that_credit_id) : (q{}, $this->credId)
|
|
% end
|
|
<p><strong><a href="/debit/<%= $hr->billId %>"><%= $hr->billId %></a>:</strong> <%== nl2br $hr->purpose %> → <%== $credit_ref->($hr->debit) %></p>
|
|
<p class="linked-credit">↑ <%= $credit_ref->($hr->credit) =%>, <%= $hr->credit ? $that->purpose : $this->purpose %>
|
|
% if ( $hr->note ) {
|
|
<br><em>Note: <%= $hr->note %></em>
|
|
% }
|
|
</p>
|
|
</td><td class="number"><%== money $hr->debit %></td><td class="number"><%== money $hr->credit %></td></tr>
|
|
% }
|
|
</table>
|
|
|
|
%= include 'filter-widget'
|