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 $partname (@partnames) {
40 % $cgi->param('parts', $partname);
41 % $cgi->param('type', 'csv');
42 <table class="fcc477part">
44 <span class="parttitle"><% $parttitle{$partname} %></span>
45 <a class="download" href="<% $cgi->self_url %>">Download</a>
47 % my $header = ".header_$partname";
48 % my $data = $parts{$partname};
52 % foreach my $row (@$data) {
54 % foreach my $item (@$row) {
60 % } # foreach $partname
61 <& /elements/footer.html &>
64 unless $FS::CurrentUser::CurrentUser->access_right('List packages');
67 # load from cache if possible
69 if ( $cgi->param('session') =~ /^(\d+)$/ ) {
71 %parts = %{ $m->cache->get($session) };
73 $session = sprintf('%010d%06d', time, int(rand(1000000)));
74 $cgi->param('session', $session);
78 if ($cgi->param('agentnum') =~ /^(\d+)$/ ) {
81 my $date = parse_datetime($cgi->param('date')) || time;
82 my @partnames = grep /^\w+$/, $cgi->param('parts');
83 foreach my $partname (@partnames) {
84 my $method = "report_$partname";
85 $parts{$partname} ||= FS::Report::FCC_477->$method(
90 $m->cache->set($session, \%parts, '1h');
92 my $title = 'FCC Form 477 Data - ' . time2str('%b %o, %Y', $date);
94 if ( $cgi->param('type') eq 'csv' ) {
95 my $partname = $partnames[0]; # ignore any beyond the first
96 my $data = $parts{$partname};
97 my $csv = Text::CSV_XS->new({ eol => "\r\n" }); # i think
99 my $filename = time2str('%Y-%m-%d', $date) . '-'. $partname . '.csv';
100 http_header('Content-Type' => 'text/csv');
101 http_header('Content-Disposition' => qq(attachment;filename="$filename"));
105 foreach my $row (@$data) {
106 $csv->combine(@$row);
107 $m->print($csv->string);
113 <%def .header_fixed_broadband>
115 <TD ROWSPAN=2>Census Tract</TD>
116 <TD ROWSPAN=2>Technology</TD>
117 <TD COLSPAN=2>Speed (Mbps)</TD>
118 <TD COLSPAN=2>Subscriptions</TD>
127 <%def .header_fixed_voice>
129 <TD ROWSPAN=2>Census Tract</TD>
130 <TD ROWSPAN=2>VoIP?</TD>
131 <TD COLSPAN=2>Lines/Subscriptions</TD>
138 <%def .header_local_phone>
140 <TD ROWSPAN=3>State</TD>
141 <TD COLSPAN=2>Wholesale</TD>
142 <TD COLSPAN=12>End User Lines</TD>
145 <TD ROWSPAN=2>VGEs</TD>
146 <TD ROWSPAN=2>UNE-Ls</TD>
148 <TD ROWSPAN=2>Total</TD>
149 <TD ROWSPAN=2>With Broadband</TD>
150 <TD COLSPAN=2>Consumer</TD>
151 <TD COLSPAN=2>Business</TD>
153 <TD COLSPAN=3>Local Loop</TD>
155 <TD COLSPAN=3>Special Media</TD>
175 <TD ROWSPAN=2>State</TD>
176 <TD COLSPAN=2>VoIP OTT</TD>
177 <TD COLSPAN=8>VoIP Non-OTT</TD>
180 <TD ROWSPAN=2>Total</TD>
181 <TD ROWSPAN=2>Consumer</TD>
183 <TD ROWSPAN=2>Total</TD>
184 <TD ROWSPAN=2>Consumer</TD>
185 <TD ROWSPAN=2>Bundled</TD>
186 <TD COLSPAN=5>Media Type</TD>
196 <%def .header_mobile_broadband>
199 <TD ROWSPAN=2>State</TD>
200 <TD COLSPAN=2>Speed (Mbps)</TD>
201 <TD COLSPAN=2>Subscriptions</TD>
210 <%def .header_mobile_voice>
213 <TD ROWSPAN=2>State</TD>
214 <TD COLSPAN=2>Subscriptions</TD>