package FS::tower_sector;
+use base qw( FS::Record );
use strict;
-use base qw( FS::Record );
-use FS::Record qw( qsearch qsearchs );
-use FS::tower;
-use FS::svc_broadband;
=head1 NAME
|| $self->ut_number('towernum', 'tower', 'towernum')
|| $self->ut_text('sectorname')
|| $self->ut_textn('ip_addr')
+ || $self->ut_floatn('height')
+ || $self->ut_numbern('freq_mhz')
+ || $self->ut_numbern('direction')
+ || $self->ut_numbern('width')
+ || $self->ut_floatn('sector_range')
;
return $error if $error;
Returns the tower for this sector, as an FS::tower object (see L<FS::tower>).
-=cut
-
-sub tower {
- my $self = shift;
- qsearchs('tower', { 'towernum'=>$self->towernum } );
-}
-
=item description
Returns a description for this sector including tower name.
Returns the services on this tower sector.
-=cut
-
-sub svc_broadband {
- my $self = shift;
- qsearch('svc_broadband', { 'sectornum' => $self->sectornum });
-}
-
=back
=head1 BUGS