Prepaid Income (Unearned Revenue) Report

From: ivan Date: Fri, 23 Jan 2004 11:20:43 +0000 (+0000) Subject: add prepaid income to main menu and allow arbitrary dates X-Git-Tag: NET_WHOIS_RAW_0_31~166 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ff15db0f2fa18e67498d0097797b667a81b51f71 add prepaid income to main menu and allow arbitrary dates --- diff --git a/httemplate/index.html b/httemplate/index.html index 548c25ceb..2d4f6b51c 100644 --- a/httemplate/index.html +++ b/httemplate/index.html @@ -69,6 +69,7 @@ Payment report (by type and/or date range)

Accounts Receivable Aging Summary +

Prepaid Income (Unearned Revenue) Report

(old) Financial reports (being rewritten)

tax reports diff --git a/httemplate/search/report_prepaid_income.cgi b/httemplate/search/report_prepaid_income.cgi index 9f045738a..eb8bbb55e 100644 --- a/httemplate/search/report_prepaid_income.cgi +++ b/httemplate/search/report_prepaid_income.cgi @@ -5,7 +5,9 @@ #needs to be re-written in sql for efficiency - my $now = time; + my $now = $cgi->param('date') && str2time($cgi->param('date')) || time; + $now =~ /^(\d+)$/ or die "unparsable date?"; + $now = $1; my %prepaid; @@ -39,7 +41,8 @@ %> -<%= header('Prepaid Income Report', menubar( 'Main Menu'=>$p, ) ) %> +<%= header( 'Prepaid Income (Unearned Revenue) Report', + menubar( 'Main Menu'=>$p, ) ) %> <%= table() %> <% @@ -54,7 +57,7 @@ for my $mon ( ( $subseq++ ? 1 : $now_mon ) .. 12 ) { if ( $prepaid{"$year-$mon"} ) { $total += $prepaid{"$year-$mon"}; - %> <%= $mon[$mon-1]. ' '. $year %> + %> <%= $mon[$mon-1]. ' '. $year %> <%= sprintf("%.2f", $prepaid{"$year-$mon"} ) %> diff --git a/httemplate/search/report_prepaid_income.html b/httemplate/search/report_prepaid_income.html new file mode 100644 index 000000000..b85a481be --- /dev/null +++ b/httemplate/search/report_prepaid_income.html @@ -0,0 +1,17 @@ + + + Prepaid Income (Unearned Revenue) Report + + + + + + +
Prepaid Income (Unearned Revenue) Report
+
+ Prepaid income (unearned revenue) as of + + + + +