2017-01-15 16:27:22 +01:00
|
|
|
% title 'Bank statement';
|
|
|
|
|
|
|
|
<table>
|
2017-01-15 22:03:06 +01:00
|
|
|
<tr><th>Date</th><th>Purpose</th><th>Account</th><th>Debit</th><th>Credit</th></tr>
|
2017-01-15 16:27:22 +01:00
|
|
|
% while ( my $record = $records->next ) {
|
2017-01-15 22:03:06 +01:00
|
|
|
<tr><td><%= $record->date %></td><td><%= $record->purpose %></td><td><%= $record->account %></td><td><%= $record->debit %></td><td><%= $record->credit %></td></tr>
|
2017-01-15 16:27:22 +01:00
|
|
|
% }
|
|
|
|
</table>
|