1 <%= include('header', 'Billing History') %>
5 my $style = 'text-align: left; margin: 0; padding: 0 1em 0 0;';
6 my $moneystyle = 'text-align: right; margin: 0; padding: 0 1em 0 0;';
10 foreach my $item (@history) {
11 $balance += $$item{'amount'};
12 $$item{'amount'} =~ s/^(-?)/$1$money_char/;
15 <TD style="$style background: $col;">$$item{'date_pretty'}</TD>
16 <TD style="$style background: $col;">$$item{'description'}</TD>
17 <TD style="$moneystyle background: $col;">$$item{'amount'}</TD>
20 $col = $col eq $col1 ? $col2 : $col1;
22 $balance = sprintf('%.2f',$balance);
23 $balance =~ s/^(-?)/$1$money_char/;
25 <P>Balance: <B>$balance</B></P>
26 <TABLE style="margin: 0;" CELLSPACING="0">
28 <TH style="$style background: #ff9999;">Date</TH>
29 <TH style="$style background: #ff9999;">Description</TH>
30 <TH style="$moneystyle background: #ff9999;">Amount</TH>
39 <%= include('footer') %>