1 % unless ( $type eq 'xml' ) {
2 <% include( '/elements/header.html', 'FCC Form 477 Results') %>
4 <?xml version="1.0" encoding="ISO-8859-1"?>
5 <Form_477_submission xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="https://specialreports.fcc.gov/wcb/Form477/XMLSchema-instance/form_477_upload_Schema.xsd" >
7 % if ( $type eq 'html' || $type eq 'html-print' ) {
10 %}elsif ( $type eq 'xml' ) {
12 % unless ( $type eq 'html-print' || $type eq 'xml' ) {
16 Download full results<BR>
17 % $cgi->param('_type', 'xml');
18 as <A HREF="<% $cgi->self_url %>">XML file</A><BR>
20 % $cgi->param('_type', 'html-print');
21 as <A HREF="<% $cgi->self_url %>">printable copy</A>
24 % $cgi->param('_type', $type );
26 % if ( $type eq 'html' || $type eq 'html-print' ) {
29 %}elsif ( $type eq 'xml' ) {
31 % foreach my $part ( @parts ) {
32 % if ( $part{$part} ) {
34 % if ( $part eq 'V' ) {
35 % next unless ( $part{'IIA'} || $part{'IIB'} );
38 % if ( $part eq 'VI' ) {
39 % next unless $part{'IA'};
43 % if ( $part eq 'IA' ) {
44 % for ( my $tech = 0; $tech < scalar(@technology_option); $tech++ ) {
45 % next unless $technology_option[$tech];
46 % my $url = &{$url_mangler}($part);
47 % if ( $type eq 'xml' ) {
48 <<% 'Part_IA_'. chr(65 + $tech) %>>
50 <% include( "477part${part}_summary.html", 'tech_code' => $tech, 'url' => $url ) %>
51 <% include( "477part${part}_detail.html", 'tech_code' => $tech, 'url' => $url ) %>
52 % if ( $type eq 'xml' ) {
53 </<% 'Part_IA_'. chr(65 + $tech) %>>
57 % if ( $type eq 'xml' ) {
58 <<% 'Part_'. uc($part) %>>
60 % my $url = &{$url_mangler}($part);
61 <% include( "477part${part}.html", 'url' => $url ) %>
62 % if ( $type eq 'xml' ) {
63 </<% 'Part_'. uc($part) %>>
69 % if ( $type eq 'html' || $type eq 'html-print' ) {
70 <% include( '/elements/footer.html') %>
71 %}elsif ( $type eq 'xml' ) {
72 </Form_477_submission>
76 my $curuser = $FS::CurrentUser::CurrentUser;
79 unless $curuser->access_right('List packages');
81 my %part = map { $_ => 1 } grep { /^\w+$/ } $cgi->param('part');
82 my $type = $cgi->param('_type') || 'html';
83 my $xlsname = '477report';
84 my @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi);
85 my $url_mangler = sub {
87 my $url = $cgi->url('-path_info' => 1, '-full' => 1);
88 $url =~ s/477\./477part$part./;
91 my @parts = qw( IA IIA IIB IV V VI );