%= include('header', 'Payment History') %>
<%=
my $balance = 0;
my $style = 'text-align: left; margin: 0; padding: 0 1em 0 0;';
my $moneystyle = 'text-align: right; margin: 0; padding: 0 1em 0 0;';
my $col1 = "#ffffff";
my $col2 = "#dddddd";
my $col = $col1;
foreach my $item (@history) {
$balance += $$item{'amount'};
$$item{'amount'} =~ s/^(-?)/$1$money_char/;
$out .= <$$item{'date_pretty'}
$$item{'description'}
$$item{'amount'}
EOF
$col = $col eq $col1 ? $col2 : $col1;
}
$balance = sprintf('%.2f',$balance);
$balance =~ s/^(-?)/$1$money_char/;
$out = <
Date | Description | Amount |
---|