+++ /dev/null
-% if ( $opt{'type'} eq 'xml' ) {
-%# container element <Part_IA_$tech> is in 477.html
-% my $col = 'a';
-% foreach ( @summary_row ) {
-% my $el = $xml_prefix . $col . '1'; # PartIA_Aa1, PartIA_Ab1, etc.
- <<% $el %>><% $_ %><<% "/$el" %>>
-% $col++;
-% }
-% foreach my $col_data ( @data ) {
-% 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, ...
- <<% $el %>><% $cell->[1] %><<% "/$el" %>>
-% }
-% }
-% $row++;
-% } # foreach $cell
-% $col++;
-% } # foreach $col_data
-% } else { # not XML
-
-<H2><% $title %> totals</H2>
-<& /elements/table-grid.html &>
- <TR>
-% foreach ( 'Total Connections',
-% '% owned loop',
-% '% billed to end users',
-% '% residential',
-% '% residential > 200 kbps') {
- <TH WIDTH="20%"><% $_ |h %></TH>
-% }
- </TR>
- <TR CLASS="row0">
-% foreach ( @summary_row ) {
- <TD><% $_ %></TD>
-% }
- </TR>
-</TABLE>
-<H2><% $title %> breakdown by speed</H2>
-<TABLE CLASS="grid" CELLSPACING=0>
- <TR>
- <TH WIDTH="12%"></TH>
-% for (my $col = 0; $col < scalar(@download_option); $col++) {
- <TH WIDTH="11%">
- <% $FS::Report::FCC_477::download[$col] |h %>
- </TH>
-% }
- </TR>
-% for (my $row = 0; $row < scalar(@upload_option); $row++) {
- <TR CLASS="row<% $row % 2%>">
- <TD STYLE="text-align: left; font-weight: bold">
-% if ( $asymmetric ) {
- <% $FS::Report::FCC_477::upload[$row] |h %>
-% }
- </TD>
-% for (my $col = 0; $col < scalar(@download_option); $col++) {
- <TD>
-% if ( $data[$col][$row][0] > 0 ) {
- <% $data[$col][$row][0] %>
-% if ( $percentages ) {
- <BR><% $data[$col][$row][1] %>
-% }
-% }
- </TD>
-% } # for $col
- </TR>
-% } # for $row
-</TABLE>
-% }
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-
-die "access denied"
- unless $curuser->access_right('List packages');
-
-my %opt = @_;
-my %search_hash;
-
-for ( qw(agentnum state) ) {
- $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
-} # 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');
-my @upload_option = $cgi->param('part1_row_option');
-
-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 $title = "Part IA $technology";
-my $xml_prefix = 'PartIA_'. chr(65 + $tech_code);
-my $xml_percent = 'Part_p_IA_'. chr(65 + $tech_code); # yes, seriously
-
-# whether to show the results as a matrix (upload speeds in rows) or a single
-# row
-my $asymmetric = 1;
-if ( $technology eq 'Symmetric xDSL' or $technology eq 'Other Wireline' ) {
- $asymmetric = 0;
- @upload_option = ( undef );
-}
-# 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'};
-
-my $is_residential = " AND COALESCE(cust_main.company, '') = ''";
-my $has_option = sub {
- my $optionnum = shift;
- $optionnum =~ /^\d+$/ ?
- " AND EXISTS(
- SELECT 1 FROM part_pkg_option
- WHERE part_pkg_option.pkgpart = part_pkg.pkgpart
- AND optionname = 'report_option_$optionnum'
- AND optionvalue = '1'
- )" : '';
-};
-
-# limit to those that have technology option $tech_code
-$count_query .= $has_option->($technology_option[$tech_code]);
-
-my @data;
-for ( my $row = 0; $row < scalar @upload_option; $row++ ) {
- for ( my $col = 0; $col < scalar @download_option; $col++ ) {
-
- my $this_count_query = $count_query .
- $has_option->($upload_option[$row]) .
- $has_option->($download_option[$col]);
-
- my $count = FS::Record->scalar_sql($this_count_query);
- my $residential = FS::Record->scalar_sql($this_count_query . $is_residential);
-
- my $percent = sprintf('%.3f', $count ? 100 * $residential / $count : 0);
- $data[$col][$row] = [ $count, $percent ];
-
- $total_count += $count;
- $total_residential += $residential;
- $above_200 += $residential if $row > 0 or !$asymmetric;
- }
-}
-
-my $total_percentage =
- sprintf("%.3f", $total_count ? 100*$total_residential/$total_count : 0);
-
-my $above_200_percentage =
- sprintf("%.3f", $total_count ? 100*$above_200/$total_count : 0);
-
-my @summary_row = (
- $total_count,
- 100.00, # own local loop--consistent with previous practice, but probably wrong
- 100.00, # billed to end user--also wrong
- $total_percentage, # residential percentage
- $above_200_percentage,
-);
-
-</%init>
projects / freeside.git / blobdiff