diff options
| author | ivan <ivan> | 2004-01-23 09:04:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-01-23 09:04:00 +0000 |
| commit | c9544281f45155587a54aa435500887d74e5c9f5 (patch) | |
| tree | d087665166117aa759666fb8e0031793001f58a4 /httemplate | |
| parent | 55de0fac57f2a71bd05aa5ce583601fb2edeacdf (diff) | |
tidy up look
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/search/report_prepaid_income.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/httemplate/search/report_prepaid_income.cgi b/httemplate/search/report_prepaid_income.cgi index bcad93325..9f045738a 100644 --- a/httemplate/search/report_prepaid_income.cgi +++ b/httemplate/search/report_prepaid_income.cgi @@ -35,6 +35,8 @@ } + my @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); + %> <%= header('Prepaid Income Report', menubar( 'Main Menu'=>$p, ) ) %> @@ -52,8 +54,10 @@ for my $mon ( ( $subseq++ ? 1 : $now_mon ) .. 12 ) { if ( $prepaid{"$year-$mon"} ) { $total += $prepaid{"$year-$mon"}; - %> <TR><TD><%= "$year-$mon" %></TD> - <TD><%= sprintf("%.2f", $prepaid{"$year-$mon"} ) %></TD> + %> <TR><TD><%= $mon[$mon-1]. ' '. $year %></TD> + <TD ALIGN="right"> + <%= sprintf("%.2f", $prepaid{"$year-$mon"} ) %> + </TD> </TR> <% } @@ -62,7 +66,7 @@ } %> -<TR><TH>Total</TH><TD><%= sprintf("%.2f", $total) %></TD></TR> +<TR><TH>Total</TH><TD ALIGN="right"><%= sprintf("%.2f", $total) %></TD></TR> </TABLE> </BODY> </HTML> |