[freeside-commits] freeside/FS/FS/Report FCC_477.pm,NONE,1.1.2.1

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/Report
In directory wavetail.420.am:/tmp/cvs-serv31798/FS/FS/Report

Added Files:
      Tag: FREESIDE_1_9_BRANCH
	FCC_477.pm 
Log Message:
improved fcc 477 report #7783

--- NEW FILE: FCC_477.pm ---
package FS::Report::FCC_477;

use strict;
use vars qw( @ISA @upload @download @technology @part2aoption @part2boption );
use FS::Report;

@ISA = qw( FS::Report );

=head1 NAME

FS::Report::FCC_477 - Routines for FCC Form 477 reports

=head1 SYNOPSIS

=head1 BUGS

Documentation.

=head1 SEE ALSO

=cut

@upload = qw(
 <200kpbs
 200-768kpbs
 768kbps-1.5mbps
 1.5-3mpbs
 3-6mbps
 6-10mbps
 10-25mbps
 25-100mbps
 >100bmps
);

@download = qw(
 200-768kpbs
 768kbps-1.5mbps
 1.5-3mpbs
 3-6mbps
 6-10mbps
 10-25mbps
 25-100mbps
 >100bmps
);

@technology = (
  'Asymetric xDSL',
  'Symetric xDSL',
  'Other Wireline',
  'Cable Modem',
  'Optical Carrier',
  'Satellite',
  'Terrestrial Fixed Wireless',
  'Terrestrial Mobile Wireless',
  'Electric Power Line',
  'Other Technology',
);

@part2aoption = (
 'LD carrier',
 'owned loops',
 'unswitched UNE loops',
 'UNE-P',
 'UNE-P replacement',
 'FTTP',
 'coax',
 'wireless',
);

@part2boption = (
 'nomadic',
 'copper',
 'FTTP',
 'coax',
 'wireless',
 'other broadband',
);

sub parse_technology_option {
  my $cgi = shift;
  my @result = ();
  my $i = 0;
  for (my $i = 0; $i < scalar(@technology); $i++) {
    my $value = $cgi->param("part1_technology_option_$i"); #lame
    push @result, $value =~ /^\d+$/ ? $value : 0;
  }
  return (@result);
}

1;