1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
% unless ( $type eq 'xml' ) {
<% include( '/elements/header.html', 'FCC Form 477 Results') %>
%}else{
<?xml version="1.0" encoding="ISO-8859-1"?>
<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" >
%}
% if ( $type eq 'html' || $type eq 'html-print' ) {
<TABLE WIDTH="100%">
<TR><TD></TD>
%}elsif ( $type eq 'xml' ) {
%}
% unless ( $type eq 'html-print' || $type eq 'xml' ) {
<TD ALIGN="right">
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 );
% }
% if ( $type eq 'html' || $type eq 'html-print' ) {
</TR>
</TABLE>
%}elsif ( $type eq 'xml' ) {
%}
% foreach my $part ( @parts ) {
% if ( $part{$part} ) {
%
% if ( $part eq 'V' ) {
% next unless ( $part{'IIA'} || $part{'IIB'} );
% }
%
% if ( $part eq 'VI' ) {
% 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}($cgi->self_url, $part);
% if ( $type eq 'xml' ) {
<<% 'Part_IA_'. chr(65 + $tech) %>>
% }
<% include( "477part${part}_summary.html", 'tech_code' => $tech, 'url' => $url ) %>
<% include( "477part${part}_detail.html", 'tech_code' => $tech, 'url' => $url ) %>
% if ( $type eq 'xml' ) {
</<% 'Part_IA_'. chr(65 + $tech) %>>
% }
% }
% } else {
% if ( $type eq 'xml' ) {
<<% 'Part_'. uc($part) %>>
% }
% my $url = &{$url_mangler}($cgi->self_url, $part);
<% include( "477part${part}.html", 'url' => $url ) %>
% if ( $type eq 'xml' ) {
</<% 'Part_'. uc($part) %>>
% }
% }
% }
% }
%
% if ( $type eq 'html' || $type eq 'html-print' ) {
<% include( '/elements/footer.html') %>
%}elsif ( $type eq 'xml' ) {
</Form_477_submission>
%}
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
die "access denied"
unless $curuser->access_right('List packages');
my %part = map { $_ => 1 } grep { /^\w+$/ } $cgi->param('part');
my $type = $cgi->param('_type') || 'html';
my $xlsname = '477report';
my @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi);
my $url_mangler = sub {
my ($url, $part) = (shift, shift);
$url =~ s/477\./477part$part./;
$url;
};
my @parts = qw( IA IIA IIB IV V VI );
</%init>
|
