diff options
author | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-11-05 19:05:57 +0000 |
commit | aaf8baf3662e16e9414de236a39f8801a8c41b01 (patch) | |
tree | 2cda603e4311b3e80f79b93d9bcce3a7c7c2d053 /httemplate/search/477partIA_summary.html | |
parent | 995a145c931164347683071c95c6754379d36604 (diff) | |
parent | 9b2de4257b6a2877434008188e52b8ef71ff339d (diff) |
This commit was manufactured by cvs2svn to create branch
'FREESIDE_2_1_BRANCH'.
Diffstat (limited to 'httemplate/search/477partIA_summary.html')
-rwxr-xr-x | httemplate/search/477partIA_summary.html | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/httemplate/search/477partIA_summary.html b/httemplate/search/477partIA_summary.html index 269f2ca..eb1c116 100755 --- a/httemplate/search/477partIA_summary.html +++ b/httemplate/search/477partIA_summary.html @@ -26,7 +26,7 @@ sub { '100.00' }, sub { '100.00' }, sub { $total_percentage }, - sub { $total_percentage }, + sub { $above_200_percentage }, ], ) %> @@ -54,11 +54,13 @@ my @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi); my $total_count = 0; my $total_residential = 0; +my $above_200 = 0; my $tech_code = $opt{tech_code}; my $technology = $FS::Report::FCC_477::technology[$tech_code] || 'unknown'; my $html_init = "<H2>Part IA $technology totals</H2>"; my $xml_prefix = 'PartIA_'. chr(65 + $tech_code); +my $not_first_row = 0; # ugh; foreach my $row ( @row_option ) { foreach my $column ( @column_option ) { @@ -70,11 +72,16 @@ foreach my $row ( @row_option ) { $total_count += $count; $total_residential += $residential; + $above_200 += $residential if $not_first_row; } + $not_first_row++; } my $total_percentage = sprintf("%.2f", $total_count ? 100*$total_residential/$total_count : 0); +my $above_200_percentage = + sprintf("%.2f", $total_count ? 100*$above_200/$total_count : 0); + </%init> |