BroadWorks export, phase 1, #25927
[freeside.git] / 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>