diff options
Diffstat (limited to 'httemplate/search/report_prepaid_income.cgi')
| -rw-r--r-- | httemplate/search/report_prepaid_income.cgi | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/httemplate/search/report_prepaid_income.cgi b/httemplate/search/report_prepaid_income.cgi index eb8bbb55e..9f045738a 100644 --- a/httemplate/search/report_prepaid_income.cgi +++ b/httemplate/search/report_prepaid_income.cgi @@ -5,9 +5,7 @@ #needs to be re-written in sql for efficiency - my $now = $cgi->param('date') && str2time($cgi->param('date')) || time; - $now =~ /^(\d+)$/ or die "unparsable date?"; - $now = $1; + my $now = time; my %prepaid; @@ -41,8 +39,7 @@ %> -<%= header( 'Prepaid Income (Unearned Revenue) Report', - menubar( 'Main Menu'=>$p, ) ) %> +<%= header('Prepaid Income Report', menubar( 'Main Menu'=>$p, ) ) %> <%= table() %> <% @@ -57,7 +54,7 @@ for my $mon ( ( $subseq++ ? 1 : $now_mon ) .. 12 ) { if ( $prepaid{"$year-$mon"} ) { $total += $prepaid{"$year-$mon"}; - %> <TR><TD ALIGN="right"><%= $mon[$mon-1]. ' '. $year %></TD> + %> <TR><TD><%= $mon[$mon-1]. ' '. $year %></TD> <TD ALIGN="right"> <%= sprintf("%.2f", $prepaid{"$year-$mon"} ) %> </TD> |