X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Ftower_sector.pm;h=4fbd89ca23d5eec2ab30edb8f29df01d70b0ccee;hb=8142815f404a02df9ba3f92ad8e703a7355c5bcd;hp=36051901aaa0c10a115b1c83e18f787e9617073b;hpb=426d4e697c5a96fc4884c444835b7e17b181b93b;p=freeside.git diff --git a/FS/FS/tower_sector.pm b/FS/FS/tower_sector.pm index 36051901a..4fbd89ca2 100644 --- a/FS/FS/tower_sector.pm +++ b/FS/FS/tower_sector.pm @@ -1,10 +1,7 @@ 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 @@ -108,6 +105,11 @@ sub check { || $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; @@ -118,13 +120,6 @@ sub check { Returns the tower for this sector, as an FS::tower object (see L). -=cut - -sub tower { - my $self = shift; - qsearchs('tower', { 'towernum'=>$self->towernum } ); -} - =item description Returns a description for this sector including tower name. @@ -145,13 +140,6 @@ sub description { Returns the services on this tower sector. -=cut - -sub svc_broadband { - my $self = shift; - qsearch('svc_broadband', { 'sectornum' => $self->sectornum }); -} - =back =head1 BUGS