httemplate/search/old477/477partIA.html

   1 % if ( $opt{'type'} eq 'xml' ) {
   2 %# container element <Part_IA_$tech> is in 477.html
   3 %   my $col = 'a';
   4 %   foreach ( @summary_row ) {
   5 %     my $el = $xml_prefix . $col . '1'; # PartIA_Aa1, PartIA_Ab1, etc.
   6   <<% $el %>><% $_ %><<% "/$el" %>>
   7 %     $col++;
   8 %   }
   9 %   foreach my $col_data ( @data ) {
  10 %     my $row = 1;
  11 %     foreach my $cell ( @$col_data ) {
  12 %       my $el = $xml_prefix . $col . $row; # PartIA_Af1, PartIA_Af2...
  13 %       if ( $cell->[0] > 0 ) {
  14   <<% $el %>><% $cell->[0] %><<% "/$el" %>>
  15 %         if ( $percentages ) {
  16 %           $el = $xml_percent . $col . $row; # Part_p_IA_Af1, ...
  17   <<% $el %>><% $cell->[1] %><<% "/$el" %>>
  18 %         }
  19 %       }
  20 %       $row++;
  21 %     } # foreach $cell
  22 %     $col++;
  23 %   } # foreach $col_data
  24 % } else { # not XML
  25
  26 <H2><% $title %> totals</H2>
  27 <& /elements/table-grid.html &>
  28   <TR>
  29 %   foreach ( 'Total Connections',
  30 %             '% owned loop',
  31 %             '% billed to end users',
  32 %             '% residential',
  33 %             '% residential > 200 kbps') {
  34     <TH WIDTH="20%"><% $_ |h %></TH>
  35 %   }
  36   </TR>
  37   <TR CLASS="row0">
  38 %   foreach ( @summary_row ) {
  39     <TD><% $_ %></TD>
  40 %   }
  41   </TR>
  42 </TABLE>
  43 <H2><% $title %> breakdown by speed</H2>
  44 <TABLE CLASS="grid" CELLSPACING=0>
  45   <TR>
  46     <TH WIDTH="12%"></TH>
  47 %   for (my $col = 0; $col < scalar(@download_option); $col++) {
  48     <TH WIDTH="11%">
  49       <% $FS::Report::FCC_477::download[$col] |h %>
  50     </TH>
  51 %   }
  52   </TR>
  53 % for (my $row = 0; $row < scalar(@upload_option); $row++) {
  54   <TR CLASS="row<% $row % 2%>">
  55     <TD STYLE="text-align: left; font-weight: bold">
  56 %     if ( $asymmetric ) {
  57       <% $FS::Report::FCC_477::upload[$row] |h %>
  58 %     }
  59     </TD>
  60 %   for (my $col = 0; $col < scalar(@download_option); $col++) {
  61     <TD>
  62 %     if ( $data[$col][$row][0] > 0 ) {
  63       <% $data[$col][$row][0] %>
  64 %       if ( $percentages ) {
  65       <BR><% $data[$col][$row][1] %>
  66 %       }
  67 %     }
  68     </TD>
  69 %   } # for $col
  70   </TR>
  71 % } # for $row
  72 </TABLE>
  73 % }
  74 <%init>
  75
  76 my $curuser = $FS::CurrentUser::CurrentUser;
  77
  78 die "access denied"
  79   unless $curuser->access_right('List packages');
  80
  81 my %opt = @_;
  82 my %search_hash;
  83
  84 for ( qw(agentnum state) ) {
  85   $search_hash{$_} = $cgi->param($_) if $cgi->param($_);
  86 } # note that separation by state is no longer required after July 2014
  87 $search_hash{'country'} = 'US';
  88 $search_hash{'classnum'} = [ $cgi->param('classnum') ];
  89
  90 my $info = FS::part_pkg_fcc_option->info;
  91
  92
  93
  94 # arrays of report_option_ numbers, running parallel to
  95 # the download and upload speed arrays
  96 my @download_option = $cgi->param('part1_column_option');
  97 my @upload_option = $cgi->param('part1_row_option');
  98
  99 my @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi);
 100
 101 my $total_count = 0;
 102 my $total_residential = 0;
 103 my $above_200 = 0;
 104 my $tech_code = $opt{tech_code};
 105 my $technology = $FS::Report::FCC_477::technology[$tech_code] || 'unknown';
 106 my $title = "Part IA $technology";
 107 my $xml_prefix = 'PartIA_'. chr(65 + $tech_code);
 108 my $xml_percent = 'Part_p_IA_'. chr(65 + $tech_code); # yes, seriously
 109
 110 # whether to show the results as a matrix (upload speeds in rows) or a single
 111 # row
 112 my $asymmetric = 1;
 113 if ( $technology eq 'Symmetric xDSL' or $technology eq 'Other Wireline' ) {
 114   $asymmetric = 0;
 115   @upload_option = ( undef );
 116 }
 117 # whether to show residential percentages in each cell of the matrix
 118 my $percentages = ($technology eq 'Terrestrial Mobile Wireless');
 119
 120 # as of date
 121 # FCC 477 instructions: "Only count connections that are in service."
 122 # So we count packages that were in active status as of the specified date,
 123 # not over any sort of range.
 124 $search_hash{'active'} = [ $opt{date}, $opt{date} ];
 125
 126 my $query = FS::cust_pkg->search(\%search_hash);
 127 my $count_query = $query->{'count_query'};
 128
 129 my $is_residential = " AND COALESCE(cust_main.company, '') = ''";
 130 my $has_option = sub {
 131   my $optionnum = shift;
 132   $optionnum =~ /^\d+$/ ?
 133   " AND EXISTS(
 134     SELECT 1 FROM part_pkg_option
 135     WHERE part_pkg_option.pkgpart = part_pkg.pkgpart
 136     AND optionname = 'report_option_$optionnum'
 137     AND optionvalue = '1'
 138   )" : '';
 139 };
 140
 141 # limit to those that have technology option $tech_code
 142 $count_query .= $has_option->($technology_option[$tech_code]);
 143
 144 my @data;
 145 for ( my $row = 0; $row < scalar @upload_option; $row++ ) {
 146   for ( my $col = 0; $col < scalar @download_option; $col++ ) {
 147
 148     my $this_count_query = $count_query .
 149                            $has_option->($upload_option[$row]) .
 150                            $has_option->($download_option[$col]);
 151
 152     my $count = FS::Record->scalar_sql($this_count_query);
 153     my $residential = FS::Record->scalar_sql($this_count_query . $is_residential);
 154
 155     my $percent = sprintf('%.3f', $count ? 100 * $residential / $count : 0);
 156     $data[$col][$row] = [ $count, $percent ];
 157
 158     $total_count += $count;
 159     $total_residential += $residential;
 160     $above_200 += $residential if $row > 0 or !$asymmetric;
 161   }
 162 }
 163
 164 my $total_percentage =
 165   sprintf("%.3f", $total_count ? 100*$total_residential/$total_count : 0);
 166
 167 my $above_200_percentage =
 168   sprintf("%.3f", $total_count ? 100*$above_200/$total_count : 0);
 169
 170 my @summary_row = (
 171   $total_count,
 172   100.00, # own local loop--consistent with previous practice, but probably wrong
 173   100.00, # billed to end user--also wrong
 174   $total_percentage, # residential percentage
 175   $above_200_percentage,
 176 );
 177
 178 </%init>