X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2F477.html;h=250e71811407138503fd330d15c2814a09d13f61;hb=75e11f1d1a5ced24496b5732e290f7762403feb8;hp=63eab7ac8d09e54067d99cef2448860b6da18e53;hpb=4317635c55495a4c89413e59bd55f64aa001e38c;p=freeside.git diff --git a/httemplate/search/477.html b/httemplate/search/477.html index 63eab7ac8..250e71811 100755 --- a/httemplate/search/477.html +++ b/httemplate/search/477.html @@ -35,7 +35,7 @@ % next unless ( $part{'IIA'} || $part{'IIB'} ); % } % -% if ( $part eq 'VI' ) { +% if ( $part eq 'VI_census' ) { % next unless $part{'IA'}; % } % @@ -55,12 +55,12 @@ % } % } else { % if ( $type eq 'xml' ) { -<<% 'Part_'. uc($part) %>> +<<% 'Part_'. $part %>> % } % my $url = &{$url_mangler}($part); <% include( "477part${part}.html", 'url' => $url ) %> % if ( $type eq 'xml' ) { -> +> % } % } % } @@ -81,13 +81,34 @@ die "access denied" 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 @technology_option = &FS::Report::FCC_477::parse_technology_option($cgi,1); + +# save upload and download mappings +my @download = $cgi->param('part1_column_option'); +my @upload = $cgi->param('part1_row_option'); +for(my $i=0; $i < scalar(@download); $i++) { + &FS::Report::FCC_477::save_fcc477map("part1_column_option_$i",$download[$i]); +} +for(my $i=0; $i < scalar(@upload); $i++) { + &FS::Report::FCC_477::save_fcc477map("part1_row_option_$i",$upload[$i]); +} + +my @part2a_row_option = $cgi->param('part2a_row_option'); +for(my $i=0; $i < scalar(@part2a_row_option); $i++) { + &FS::Report::FCC_477::save_fcc477map("part2a_row_option_$i",$part2a_row_option[$i]); +} + +my @part2b_row_option = $cgi->param('part2b_row_option'); +for(my $i=0; $i < scalar(@part2b_row_option); $i++) { + &FS::Report::FCC_477::save_fcc477map("part2b_row_option_$i",$part2b_row_option[$i]); +} + my $url_mangler = sub { my $part = shift; my $url = $cgi->url('-path_info' => 1, '-full' => 1); $url =~ s/477\./477part$part./; $url; }; -my @parts = qw( IA IIA IIB IV V VI ); +my @parts = qw( IA IIA IIB IV V VI_census );