2017-01-15 16:27:22 +01:00
|
|
|
% title 'Income of ' . $account;
|
|
|
|
|
2017-01-25 22:38:39 +01:00
|
|
|
<p>Listed in reverse order:</p>
|
|
|
|
|
2017-01-15 16:27:22 +01:00
|
|
|
<table class="income">
|
|
|
|
<tr><th>Id</th><th>Date</th><th>Purpose</th><th>value</th><th>spent</th></tr>
|
|
|
|
% while ( my $credit = $credits->next ) {
|
2017-01-25 22:38:39 +01:00
|
|
|
<tr><td class="number"><a href="/credit/<%= $credit->credId %>"><%= $credit->credId %></a></td><td><%= $credit->date %></td><td><%== nl2br $credit->purpose %></td><td class="number"><%== money $credit->value %></td><td class="number <%= $credit->spent < $credit->value ? "mark" : "" %>"><%== money $credit->spent %></td></tr>
|
2017-01-15 16:27:22 +01:00
|
|
|
% }
|
|
|
|
</table>
|