X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2F477partIA.html;h=55e901bb3ee9f574287fb119e377eb7701254977;hb=447f1a906b47868497485edc3ba190a808539956;hp=1cd0b70e021720582dedc2db8f6a588c7a0b39b4;hpb=ded0ab5cac02f099b387de360fb6dd6bd8cbb6b4;p=freeside.git
diff --git a/httemplate/search/477partIA.html b/httemplate/search/477partIA.html
index 1cd0b70e0..55e901bb3 100755
--- a/httemplate/search/477partIA.html
+++ b/httemplate/search/477partIA.html
@@ -10,10 +10,12 @@
% my $row = 1;
% foreach my $cell ( @$col_data ) {
% my $el = $xml_prefix . $col . $row; # PartIA_Af1, PartIA_Af2...
+% if ( $cell->[0] > 0 ) {
<<% $el %>><% $cell->[0] %><<% "/$el" %>>
-% if ( $percentages ) {
-% $el = $xml_percent . $col . $row; # Part_p_IA_Af1, ...
+% if ( $percentages ) {
+% $el = $xml_percent . $col . $row; # Part_p_IA_Af1, ...
<<% $el %>><% $cell->[1] %><<% "/$el" %>>
+% }
% }
% $row++;
% } # foreach $cell
@@ -57,9 +59,11 @@
% for (my $col = 0; $col < scalar(@download_option); $col++) {
+% if ( $data[$col][$row][0] > 0 ) {
<% $data[$col][$row][0] %>
-% if ( $percentages ) {
+% if ( $percentages ) {
<% $data[$col][$row][1] %>
+% }
% }
|
% } # for $col
@@ -76,14 +80,17 @@ die "access denied"
my %opt = @_;
my %search_hash;
-
+
for ( qw(agentnum state) ) {
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
-}
-$search_hash{'status'} = 'active';
+} # note that separation by state is no longer required after July 2014
$search_hash{'country'} = 'US';
$search_hash{'classnum'} = [ $cgi->param('classnum') ];
+my $info = FS::part_pkg_fcc_option->info;
+
+
+
# arrays of report_option_ numbers, running parallel to
# the download and upload speed arrays
my @download_option = $cgi->param('part1_column_option');
@@ -110,6 +117,12 @@ if ( $technology eq 'Symmetric xDSL' or $technology eq 'Other Wireline' ) {
# whether to show residential percentages in each cell of the matrix
my $percentages = ($technology eq 'Terrestrial Mobile Wireless');
+# as of date
+# FCC 477 instructions: "Only count connections that are in service."
+# So we count packages that were in active status as of the specified date,
+# not over any sort of range.
+$search_hash{'active'} = [ $opt{date}, $opt{date} ];
+
my $query = FS::cust_pkg->search(\%search_hash);
my $count_query = $query->{'count_query'};
@@ -139,7 +152,7 @@ for ( my $row = 0; $row < scalar @upload_option; $row++ ) {
my $count = FS::Record->scalar_sql($this_count_query);
my $residential = FS::Record->scalar_sql($this_count_query . $is_residential);
- my $percent = sprintf('%.2f', $count ? 100 * $residential / $count : 0);
+ my $percent = sprintf('%.3f', $count ? 100 * $residential / $count : 0);
$data[$col][$row] = [ $count, $percent ];
$total_count += $count;
@@ -149,10 +162,10 @@ for ( my $row = 0; $row < scalar @upload_option; $row++ ) {
}
my $total_percentage =
- sprintf("%.2f", $total_count ? 100*$total_residential/$total_count : 0);
+ sprintf("%.3f", $total_count ? 100*$total_residential/$total_count : 0);
my $above_200_percentage =
- sprintf("%.2f", $total_count ? 100*$above_200/$total_count : 0);
+ sprintf("%.3f", $total_count ? 100*$above_200/$total_count : 0);
my @summary_row = (
$total_count,