1 package FS::Report::FCC_477;
4 use vars qw( @ISA @upload @download @technology @part2aoption @part2boption );
7 @ISA = qw( FS::Report );
11 FS::Report::FCC_477 - Routines for FCC Form 477 reports
53 'Terrestrial Fixed Wireless',
54 'Terrestrial Mobile Wireless',
55 'Electric Power Line',
62 'unswitched UNE loops',
79 sub parse_technology_option {
83 for (my $i = 0; $i < scalar(@technology); $i++) {
84 my $value = $cgi->param("part1_technology_option_$i"); #lame
85 push @result, $value =~ /^\d+$/ ? $value : 0;