% title 'Income of ' . $account;

Listed in reverse order:

% while ( my $credit = $credits->next ) { % }
IdDatePurposevaluespent
<%= $credit->credId %><%= $credit->date %><%== nl2br $credit->purpose %><%== money $credit->value %>"><%== money $credit->spent %>
%= include 'filter-widget'