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 .errortitle {
  36   font-weight: bold;
  37   color: #ff0000;
  38 }
  39 tr.error td {
  40   background-color: #ffdddd;
  41 }
  42 tr.error td.error {
  43   text-align: left;
  44   border: none;
  45 }
  46 tr.error ul {
  47   margin: 0px;
  48   list-style-image: url("<% $fsurl %>images/cross.png");
  49 }
  50 a.download {
  51   float: right;
  52 }
  53 </STYLE>
  54 % foreach my $partname (@partnames) {
  55 %   my $this_part = $parts{$partname};
  56 %   $cgi->param('parts', $partname);
  57 %   $cgi->param('type', 'csv');
  58 <table class="fcc477part">
  59   <caption>
  60     <span class="parttitle"><% $part_titles->{$partname} %></span>
  61 %   if ( $this_part->{num_errors} > 0 ) {
  62 %     # show error heading while it contains errors
  63       <span class="errortitle">
  64         <% emt('This section contains [quant,_1,error].', $this_part->{num_errors}) %>
  65       </span>
  66 %   }
  67     <a class="download" href="<% $cgi->self_url %>">Download</a>
  68   </caption>
  69 %   my $header = ".header_$partname";
  70 %   my $data = $this_part->{data};
  71 %   my $error = $this_part->{error};
  72   <thead>
  73     <& $header &>
  74   </thead>
  75 %   my $rownum = 0;
  76 %   foreach my $row (@$data) {
  77 %     my %eh; # error hash
  78 %     if ( $error->[$rownum] ) {
  79 %       %eh = %{ $error->[$rownum] };
  80 %     }
  81   <tr<% keys(%eh) ? ' class="error"' : ''%>>
  82 %     my $first = 1;
  83 %     foreach my $item (@$row) {
  84     <td>
  85 %     if ($first and $part_link{$partname}) {
  86       <a href="<% $part_link{$partname} . "477rownum=$rownum" %>"><% $item || '(empty)' %></a>
  87 %       $first = 0;
  88 %     } else {
  89       <% $item %>
  90 %     }
  91     </td>
  92 %   } #foreach $item
  93 %   # display errors
  94 %   if ( keys %eh ) {
  95     <td class="error"><ul>
  96 %     foreach my $key (sort keys %eh) {
  97       <li><% $eh{$key} %></li>
  98 %     }
  99     </ul></td>
 100 %   } # if there are errors
 101   </tr>
 102 %   $rownum++;
 103 %   } #foreach $row
 104 </table>
 105 % } # foreach $partname
 106 <& /elements/footer.html &>
 107 <%init>
 108 die "access denied"
 109   unless $FS::CurrentUser::CurrentUser->access_right('List packages');
 110
 111 my %parts;
 112 my %part_link;
 113 # load from cache if possible
 114 my $session;
 115 if ( $cgi->param('session') =~ /^(\d+)$/ ) {
 116   $session = $1;
 117   %parts = %{ $m->cache->get($session) };
 118 } else {
 119   $session = sprintf('%010d%06d', time, int(rand(1000000)));
 120   $cgi->param('session', $session);
 121 }
 122
 123 my $agentnum;
 124 if ($cgi->param('agentnum') =~ /^(\d+)$/ ) {
 125   $agentnum = $1;
 126 }
 127 my $date = parse_datetime($cgi->param('date')) || time;
 128 my @partnames = grep /^\w+$/, $cgi->param('parts');
 129 my $ignore_quantity = ($cgi->param('ignore_quantity') ? 1 : 0);
 130
 131 foreach my $partname (@partnames) {
 132   $parts{$partname} ||= FS::Report::FCC_477->report( $partname,
 133     date            => $date,
 134     agentnum        => $agentnum,
 135     ignore_quantity => $ignore_quantity,
 136   ); # includes error, detail, and data parts
 137   my $detail_table = FS::Report::FCC_477->part_table($partname);
 138   if ($detail_table eq 'cust_pkg') {
 139     my $link = popurl(1).'477_cust_pkg.html?477part='.$partname.";date=$date;";
 140     if ($agentnum) {
 141       $link .= "agentnum=$agentnum;";
 142     }
 143     $part_link{$partname} = $link;
 144   } # don't include detail links to deploy_blocks, that's pointless
 145 }
 146 $m->cache->set($session, \%parts, '1h');
 147
 148 my $title = 'FCC Form 477 Data - ' . time2str('%b %o, %Y', $date);
 149
 150 if ( $cgi->param('type') eq 'csv' ) {
 151   my $partname = $partnames[0]; # ignore any beyond the first
 152   my $data = $parts{$partname}->{data};
 153   my $csv = Text::CSV_XS->new({ eol => "\r\n" }); # i think
 154
 155   my $filename = time2str('%Y-%m-%d', $date) . '-'. $partname . '.csv';
 156   http_header('Content-Type' => 'text/csv');
 157   http_header('Content-Disposition' => qq(attachment;filename="$filename"));
 158
 159   $m->clear_buffer;
 160
 161   foreach my $row (@$data) {
 162     $csv->combine(@$row);
 163     $m->print($csv->string);
 164   }
 165   $m->abort;
 166 }
 167
 168 my $part_titles = FS::Report::FCC_477->parts;
 169
 170 </%init>
 171 <%def .header_fbd>
 172   <TR CLASS="head">
 173     <TD ROWSPAN=2>Census Block</TD>
 174     <TD ROWSPAN=2>DBA Name</TD>
 175     <TD ROWSPAN=2>Technology</TD>
 176     <TD ROWSPAN=2>Consumer?</TD>
 177     <TD COLSPAN=2>Advertised Speed (Mbps)</TD>
 178     <TD ROWSPAN=2>Business?</TD>
 179     <TD COLSPAN=2>Contractual Speed (Mbps)</TD>
 180   </TR>
 181   <TR CLASS="subhead">
 182     <TD>Down</TD>
 183     <TD>Up</TD>
 184     <TD>Down</TD>
 185     <TD>Up</TD>
 186   </TR>
 187 </%def>
 188 <%def .header_fbs>
 189   <TR CLASS="head">
 190     <TD ROWSPAN=2>Census Tract</TD>
 191     <TD ROWSPAN=2>Technology</TD>
 192     <TD COLSPAN=2>Speed (Mbps)</TD>
 193     <TD COLSPAN=2>Subscriptions</TD>
 194   </TR>
 195   <TR CLASS="subhead">
 196     <TD>Down</TD>
 197     <TD>Up</TD>
 198     <TD>Total</TD>
 199     <TD>Consumer</TD>
 200   </TR>
 201 </%def>
 202 <%def .header_fvs>
 203   <TR CLASS="head">
 204     <TD ROWSPAN=2>Census Tract</TD>
 205     <TD ROWSPAN=2>VoIP?</TD>
 206     <TD COLSPAN=2>Lines/Subscriptions</TD>
 207   </TR>
 208   <TR CLASS="subhead">
 209     <TD>Total</TD>
 210     <TD>Consumer</TD>
 211   </TR>
 212 </%def>
 213 <%def .header_lts>
 214   <TR CLASS="head">
 215     <TD ROWSPAN=3>State</TD>
 216     <TD COLSPAN=2>Wholesale</TD>
 217     <TD COLSPAN=12>End User Lines</TD>
 218   </TR>
 219   <TR CLASS="subhead">
 220     <TD ROWSPAN=2>VGEs</TD>
 221     <TD ROWSPAN=2>UNE-Ls</TD>
 222
 223     <TD ROWSPAN=2>Total</TD>
 224     <TD ROWSPAN=2>With Broadband</TD>
 225     <TD COLSPAN=2>Consumer</TD>
 226     <TD COLSPAN=2>Business</TD>
 227
 228     <TD COLSPAN=3>Local Loop</TD>
 229
 230     <TD COLSPAN=3>Special Media</TD>
 231   </TR>
 232
 233   <TR CLASS="subhead">
 234     <TD> </TD>
 235     <TD>+LD</TD>
 236     <TD> </TD>
 237     <TD>+LD</TD>
 238
 239     <TD>Owned</TD>
 240     <TD>UNE-L</TD>
 241     <TD>Resale</TD>
 242
 243     <TD>Fiber</TD>
 244     <TD>Coaxial</TD>
 245     <TD>Wireless</TD>
 246   </TR>
 247 </%def>
 248 <%def .header_voip>
 249   <TR CLASS="head">
 250     <TD ROWSPAN=3>State</TD>
 251     <TD COLSPAN=2>VoIP OTT</TD>
 252     <TD COLSPAN=8>VoIP Non-OTT</TD>
 253   </TR>
 254   <TR CLASS="subhead">
 255     <TD ROWSPAN=2>Total</TD>
 256     <TD ROWSPAN=2>Consumer</TD>
 257
 258     <TD ROWSPAN=2>Total</TD>
 259     <TD ROWSPAN=2>Consumer</TD>
 260     <TD ROWSPAN=2>Bundled</TD>
 261     <TD COLSPAN=5>Media Type</TD>
 262   </TR>
 263   <TR CLASS="subhead">
 264     <TD>Copper</TD>
 265     <TD>Fiber</TD>
 266     <TD>Coaxial</TD>
 267     <TD>Wireless</TD>
 268     <TD>Other</TD>
 269   </TR>
 270 </%def>
 271 <%def .header_mbs>
 272 %# unimplemented
 273   <TR CLASS="head">
 274     <TD ROWSPAN=2>State</TD>
 275     <TD COLSPAN=2>Speed (Mbps)</TD>
 276     <TD COLSPAN=2>Subscriptions</TD>
 277   </TR>
 278   <TR CLASS="subhead">
 279     <TD>Down</TD>
 280     <TD>Up</TD>
 281     <TD>Total</TD>
 282     <TD>Consumer</TD>
 283   </TR>
 284 </%def>
 285 <%def .header_mvs>
 286 %# unimplemented
 287   <TR CLASS="head">
 288     <TD ROWSPAN=2>State</TD>
 289     <TD COLSPAN=2>Subscriptions</TD>
 290   </TR>
 291   <TR CLASS="subhead">
 292     <TD>Total</TD>
 293     <TD>Direct</TD>
 294   </TR>
 295 </%def>
 296