httemplate/search/477.html

   1 <& /elements/header.html, $title &>
   2 <STYLE TYPE="text/css">
   3 table.fcc477part {
   4   border-collapse: collapse;
   5   border: 1px #777 solid;
   6   margin-bottom: 20px;
   7 }
   8 table.fcc477part td {
   9   padding: 0px 4px;
  10   border-left: 1px #777 solid;
  11   border-right: 1px #777 solid;
  12 }
  13 table.fcc477part tbody td {
  14   text-align: right;
  15 }
  16 table.fcc477part thead tr.head {
  17   text-align: center;
  18   vertical-align: top;
  19   font-weight: bold;
  20   border-top: 1px #777 solid;
  21   border-bottom: 1px #777 solid;
  22 }
  23 table.fcc477part thead tr.subhead {
  24   text-align: center;
  25   font-weight: bold;
  26   font-size: small;
  27   border-top: 1px #777 solid;
  28   border-bottom: 1px #777 solid;
  29 }
  30 .parttitle {
  31   font-weight: bold;
  32   font-size: large;
  33   float: left;
  34 }
  35 a.download {
  36   float: right;
  37 }
  38 </STYLE>
  39 % foreach my $partname (@partnames) {
  40 %   $cgi->param('parts', $partname);
  41 %   $cgi->param('type', 'csv');
  42 <table class="fcc477part">
  43   <caption>
  44     <span class="parttitle"><% $part_titles->{$partname} %></span>
  45     <a class="download" href="<% $cgi->self_url %>">Download</a>
  46   </caption>
  47 %   my $header = ".header_$partname";
  48 %   my $data = $parts{$partname};
  49   <thead>
  50     <& $header &>
  51   </thead>
  52 %   my $rownum = 0;
  53 %   foreach my $row (@$data) {
  54   <tr>
  55 %     my $first = 1;
  56 %     foreach my $item (@$row) {
  57     <td>
  58 %     if ($first and $part_link{$partname}) {
  59       <a href="<% $part_link{$partname} . "477rownum=$rownum" %>"><% $item || '(empty)' %></a>
  60 %       $first = 0;
  61 %     } else {
  62       <% $item %>
  63 %     }
  64     </td>
  65 %   } #foreach $item
  66   </tr>
  67 %   $rownum++;
  68 %   } #foreach $row
  69 </table>
  70 % } # foreach $partname
  71 <& /elements/footer.html &>
  72 <%init>
  73 die "access denied"
  74   unless $FS::CurrentUser::CurrentUser->access_right('List packages');
  75
  76 my %parts;
  77 my %part_link;
  78 # load from cache if possible
  79 my $session;
  80 if ( $cgi->param('session') =~ /^(\d+)$/ ) {
  81   $session = $1;
  82   %parts = %{ $m->cache->get($session) };
  83 } else {
  84   $session = sprintf('%010d%06d', time, int(rand(1000000)));
  85   $cgi->param('session', $session);
  86 }
  87
  88 my $agentnum;
  89 if ($cgi->param('agentnum') =~ /^(\d+)$/ ) {
  90   $agentnum = $1;
  91 }
  92 my $date = parse_datetime($cgi->param('date')) || time;
  93 my @partnames = grep /^\w+$/, $cgi->param('parts');
  94 foreach my $partname (@partnames) {
  95   $parts{$partname} ||= FS::Report::FCC_477->report( $partname,
  96     date      => $date,
  97     agentnum  => $agentnum,
  98   );
  99   my $detail_table = FS::Report::FCC_477->part_table($partname);
 100   if ($detail_table eq 'cust_pkg') {
 101     my $link = popurl(1).'cust_pkg.cgi?477part='.$partname.";date=$date;";
 102     if ($agentnum) {
 103       $link .= "agentnum=$agentnum;";
 104     }
 105     $part_link{$partname} = $link;
 106   } # don't include detail links to deploy_blocks, that's pointless
 107 }
 108 $m->cache->set($session, \%parts, '1h');
 109
 110 my $title = 'FCC Form 477 Data - ' . time2str('%b %o, %Y', $date);
 111
 112 if ( $cgi->param('type') eq 'csv' ) {
 113   my $partname = $partnames[0]; # ignore any beyond the first
 114   my $data = $parts{$partname};
 115   my $csv = Text::CSV_XS->new({ eol => "\r\n" }); # i think
 116
 117   my $filename = time2str('%Y-%m-%d', $date) . '-'. $partname . '.csv';
 118   http_header('Content-Type' => 'text/csv');
 119   http_header('Content-Disposition' => qq(attachment;filename="$filename"));
 120
 121   $m->clear_buffer;
 122
 123   foreach my $row (@$data) {
 124     $csv->combine(@$row);
 125     $m->print($csv->string);
 126   }
 127   $m->abort;
 128 }
 129
 130 my $part_titles = FS::Report::FCC_477->parts;
 131
 132 </%init>
 133 <%def .header_fbd>
 134   <TR CLASS="head">
 135     <TD ROWSPAN=2>Census Block</TD>
 136     <TD ROWSPAN=2>DBA Name</TD>
 137     <TD ROWSPAN=2>Technology</TD>
 138     <TD ROWSPAN=2>Consumer?</TD>
 139     <TD COLSPAN=2>Advertised Speed (Mbps)</TD>
 140     <TD ROWSPAN=2>Business?</TD>
 141     <TD COLSPAN=2>Contractual Speed (Mbps)</TD>
 142   </TR>
 143   <TR CLASS="subhead">
 144     <TD>Down</TD>
 145     <TD>Up</TD>
 146     <TD>Down</TD>
 147     <TD>Up</TD>
 148   </TR>
 149 </%def>
 150 <%def .header_fbs>
 151   <TR CLASS="head">
 152     <TD ROWSPAN=2>Census Tract</TD>
 153     <TD ROWSPAN=2>Technology</TD>
 154     <TD COLSPAN=2>Speed (Mbps)</TD>
 155     <TD COLSPAN=2>Subscriptions</TD>
 156   </TR>
 157   <TR CLASS="subhead">
 158     <TD>Down</TD>
 159     <TD>Up</TD>
 160     <TD>Total</TD>
 161     <TD>Consumer</TD>
 162   </TR>
 163 </%def>
 164 <%def .header_fvs>
 165   <TR CLASS="head">
 166     <TD ROWSPAN=2>Census Tract</TD>
 167     <TD ROWSPAN=2>VoIP?</TD>
 168     <TD COLSPAN=2>Lines/Subscriptions</TD>
 169   </TR>
 170   <TR CLASS="subhead">
 171     <TD>Total</TD>
 172     <TD>Consumer</TD>
 173   </TR>
 174 </%def>
 175 <%def .header_lts>
 176   <TR CLASS="head">
 177     <TD ROWSPAN=3>State</TD>
 178     <TD COLSPAN=2>Wholesale</TD>
 179     <TD COLSPAN=12>End User Lines</TD>
 180   </TR>
 181   <TR CLASS="subhead">
 182     <TD ROWSPAN=2>VGEs</TD>
 183     <TD ROWSPAN=2>UNE-Ls</TD>
 184
 185     <TD ROWSPAN=2>Total</TD>
 186     <TD ROWSPAN=2>With Broadband</TD>
 187     <TD COLSPAN=2>Consumer</TD>
 188     <TD COLSPAN=2>Business</TD>
 189
 190     <TD COLSPAN=3>Local Loop</TD>
 191
 192     <TD COLSPAN=3>Special Media</TD>
 193   </TR>
 194
 195   <TR CLASS="subhead">
 196     <TD> </TD>
 197     <TD>+LD</TD>
 198     <TD> </TD>
 199     <TD>+LD</TD>
 200
 201     <TD>Owned</TD>
 202     <TD>UNE-L</TD>
 203     <TD>Resale</TD>
 204
 205     <TD>Fiber</TD>
 206     <TD>Coaxial</TD>
 207     <TD>Wireless</TD>
 208   </TR>
 209 </%def>
 210 <%def .header_voip>
 211   <TR CLASS="head">
 212     <TD ROWSPAN=2>State</TD>
 213     <TD COLSPAN=2>VoIP OTT</TD>
 214     <TD COLSPAN=8>VoIP Non-OTT</TD>
 215   </TR>
 216   <TR CLASS="subhead">
 217     <TD ROWSPAN=2>Total</TD>
 218     <TD ROWSPAN=2>Consumer</TD>
 219
 220     <TD ROWSPAN=2>Total</TD>
 221     <TD ROWSPAN=2>Consumer</TD>
 222     <TD ROWSPAN=2>Bundled</TD>
 223     <TD COLSPAN=5>Media Type</TD>
 224   </TR>
 225   <TR CLASS="subhead">
 226     <TD>Copper</TD>
 227     <TD>Fiber</TD>
 228     <TD>Coaxial</TD>
 229     <TD>Wireless</TD>
 230     <TD>Other</TD>
 231   </TR>
 232 </%def>
 233 <%def .header_mbs>
 234 %# unimplemented
 235   <TR CLASS="head">
 236     <TD ROWSPAN=2>State</TD>
 237     <TD COLSPAN=2>Speed (Mbps)</TD>
 238     <TD COLSPAN=2>Subscriptions</TD>
 239   </TR>
 240   <TR CLASS="subhead">
 241     <TD>Down</TD>
 242     <TD>Up</TD>
 243     <TD>Total</TD>
 244     <TD>Consumer</TD>
 245   </TR>
 246 </%def>
 247 <%def .header_mvs>
 248 %# unimplemented
 249   <TR CLASS="head">
 250     <TD ROWSPAN=2>State</TD>
 251     <TD COLSPAN=2>Subscriptions</TD>
 252   </TR>
 253   <TR CLASS="subhead">
 254     <TD>Total</TD>
 255     <TD>Direct</TD>
 256   </TR>
 257 </%def>
 258