-
-<TABLE WIDTH="100%">
- <TR>
- <TD></TD>
- <TD ALIGN="right" CLASS="noprint">
- Download full results<BR>
-% $cgi->param('_type', 'xml');
- as <A HREF="<% $cgi->self_url %>">XML file</A><BR>
-
-% $cgi->param('_type', 'html-print');
- as <A HREF="<% $cgi->self_url %>">printable copy</A>
-
- </TD>
-% $cgi->param('_type', $type );
- </TR>
-</TABLE>
-% } #html
-% foreach my $part ( @parts ) {
-% if ( $part{$part} ) {
-%
-% if ( $part eq 'V' ) {
-% next unless ( $part{'IIA'} || $part{'IIB'} );
-% }
-%
-% if ( $part eq 'VI_census' ) {
-% next unless $part{'IA'};
-% }
-%
-% my @reports = ();
-% if ( $part eq 'IA' ) {
-% for ( my $tech = 0; $tech < scalar(@technology_option); $tech++ ) {
-% next unless $technology_option[$tech];
-% my $url = &{$url_mangler}($part);
-% if ( $type eq 'xml' ) {
-<<% 'Part_IA_'. chr(65 + $tech) %>>
-% }
-<& "477part${part}.html",
- 'tech_code' => $tech,
- 'url' => $url,
- 'type' => $type,
- 'date' => $date,
-&>
-% if ( $type eq 'xml' ) {
-</<% 'Part_IA_'. chr(65 + $tech) %>>
-% }
-% }
-% } else { # not part IA
-% if ( $type eq 'xml' ) {
-<<% 'Part_'. $part %>>
-% }
-% my $url = &{$url_mangler}($part);
-<& "477part${part}.html",
- 'url' => $url,
- 'date' => $date,
- 'filename' => $filename,
-&>
-% if ( $type eq 'xml' ) {
-</<% 'Part_'. $part %>>
-% }
+% foreach my $partnum (@partnums) {
+% $cgi->param('parts', $partnum);
+% $cgi->param('type', 'csv');
+<table class="fcc477part">
+ <caption>
+ <span class="parttitle">Part <% $partnum %></span>
+ <a class="download" href="<% $cgi->self_url %>">Download</a>
+ </caption>
+% my $header = ".header$partnum";
+% my $data = $parts{$partnum};
+ <thead>
+ <& $header &>
+ </thead>
+% #XXX column headings
+% foreach my $row (@$data) {
+ <tr>
+% foreach my $item (@$row) {
+ <td><% $item %></td>