1 <& /elements/header.html, $title &>
2 <STYLE TYPE="text/css">
4 border-collapse: collapse;
5 border: 1px #777 solid;
10 border-left: 1px #777 solid;
11 border-right: 1px #777 solid;
13 table.fcc477part tbody td {
16 table.fcc477part thead tr.head {
20 border-top: 1px #777 solid;
21 border-bottom: 1px #777 solid;
23 table.fcc477part thead tr.subhead {
27 border-top: 1px #777 solid;
28 border-bottom: 1px #777 solid;
39 % foreach my $partnum (@partnums) {
40 % $cgi->param('parts', $partnum);
41 % $cgi->param('type', 'csv');
42 <table class="fcc477part">
44 <span class="parttitle">Part <% $partnum %></span>
45 <a class="download" href="<% $cgi->self_url %>">Download</a>
47 % my $header = ".header$partnum";
48 % my $data = $parts{$partnum};
52 % #XXX column headings
53 % foreach my $row (@$data) {
55 % foreach my $item (@$row) {
61 % } # foreach $partnum
62 <& /elements/footer.html &>
65 unless $FS::CurrentUser::CurrentUser->access_right('List packages');
68 # load from cache if possible
70 if ( $cgi->param('session') =~ /^(\d+)$/ ) {
72 %parts = %{ $m->cache->get($session) };
74 $session = sprintf('%010d%06d', time, int(rand(1000000)));
75 $cgi->param('session', $session);
79 if ($cgi->param('agentnum') =~ /^(\d+)$/ ) {
82 my $date = parse_datetime($cgi->param('date')) || time;
83 my @partnums = grep /^\d+$/, $cgi->param('parts');
84 foreach my $partnum (@partnums) {
85 my $method = "part$partnum";
86 $parts{$partnum} ||= FS::Report::FCC_477->$method(
91 $m->cache->set($session, \%parts, '1h');
93 my $title = 'FCC Form 477 Data - ' . time2str('%b %o, %Y', $date);
95 if ( $cgi->param('type') eq 'csv' ) {
96 my $partnum = $partnums[0]; # ignore any beyond the first
97 my $data = $parts{$partnum};
98 my $csv = Text::CSV_XS->new({ eol => "\r\n" }); # i think
100 my $filename = time2str('%Y-%m-%d', $date) . '-part' . $partnum . '.csv';
101 http_header('Content-Type' => 'text/csv');
102 http_header('Content-Disposition' => qq(attachment;filename="$filename"));
106 foreach my $row (@$data) {
107 $csv->combine(@$row);
108 $m->print($csv->string);
116 <TD ROWSPAN=2>Census Tract</TD>
117 <TD ROWSPAN=2>Technology</TD>
118 <TD COLSPAN=2>Speed (Mbps)</TD>
119 <TD COLSPAN=2>Subscriptions</TD>
130 <TD ROWSPAN=2>State</TD>
131 <TD COLSPAN=2>Speed (Mbps)</TD>
132 <TD COLSPAN=2>Subscriptions</TD>
143 <TD ROWSPAN=2>State</TD>
144 <TD COLSPAN=2>Subscriptions</TD>
153 <TD ROWSPAN=3>State</TD>
154 <TD COLSPAN=2>Wholesale</TD>
155 <TD COLSPAN=12>End User Lines</TD>
158 <TD ROWSPAN=2>VGEs</TD>
159 <TD ROWSPAN=2>UNE-Ls</TD>
161 <TD ROWSPAN=2>Total</TD>
162 <TD ROWSPAN=2>With Broadband</TD>
163 <TD COLSPAN=2>Consumer</TD>
164 <TD COLSPAN=2>Business</TD>
166 <TD COLSPAN=3>Local Loop</TD>
168 <TD COLSPAN=3>Special Media</TD>
188 <TD ROWSPAN=2>State</TD>
189 <TD COLSPAN=2>VoIP OTT</TD>
190 <TD COLSPAN=8>VoIP Non-OTT</TD>
193 <TD ROWSPAN=2>Total</TD>
194 <TD ROWSPAN=2>Consumer</TD>
196 <TD ROWSPAN=2>Total</TD>
197 <TD ROWSPAN=2>Consumer</TD>
198 <TD ROWSPAN=2>Bundled</TD>
199 <TD COLSPAN=5>Media Type</TD>
211 <TD ROWSPAN=2>Census Tract</TD>
212 <TD ROWSPAN=2>VoIP?</TD>
213 <TD COLSPAN=2>Lines/Subscriptions</TD>