X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsvc_broadband.pm;h=fed877d97a5a6afcdf41382ea640ced2ac0d197c;hb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924;hp=94c285b5dbe3f882428c755069d75c6c36f3dbdd;hpb=fc2bc78541d1c8c0f1f0570b55e41ac032d03e65;p=freeside.git diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm index 94c285b5d..fed877d97 100755 --- a/FS/FS/svc_broadband.pm +++ b/FS/FS/svc_broadband.pm @@ -2,7 +2,9 @@ package FS::svc_broadband; use strict; use vars qw(@ISA $conf); -use NetAddr::IP; + +use base qw(FS::svc_Radius_Mixin FS::svc_Tower_Mixin FS::svc_Common); +{ no warnings 'redefine'; use NetAddr::IP; } use FS::Record qw( qsearchs qsearch dbh ); use FS::svc_Common; use FS::cust_svc; @@ -10,8 +12,6 @@ use FS::addr_block; use FS::part_svc_router; use FS::tower_sector; -@ISA = qw( FS::svc_Radius_Mixin FS::svc_Tower_Mixin FS::svc_Common ); - $FS::UID::callback{'FS::svc_broadband'} = sub { $conf = new FS::Conf; }; @@ -159,6 +159,10 @@ Parameters: =item routernum - arrayref +=item sectornum - arrayref + +=item towernum - arrayref + =item order_by =back @@ -215,6 +219,13 @@ sub search { push @where, "addr_block.routernum = $1"; } } + + #sector and tower, as above + my @where_sector = $class->tower_sector_sql($params); + if ( @where_sector ) { + push @where, @where_sector; + push @from, 'LEFT JOIN tower_sector USING ( sectornum )'; + } #svcnum if ( $params->{'svcnum'} =~ /^(\d+)$/ ) { @@ -399,11 +410,11 @@ sub check { if ( $cust_pkg && ! $self->latitude && ! $self->longitude ) { my $l = $cust_pkg->cust_location_or_main; if ( $l->ship_latitude && $l->ship_longitude ) { - $self->latitude = $l->ship_latitude; - $self->longitude = $l->ship_longitude; + $self->latitude( $l->ship_latitude ); + $self->longitude( $l->ship_longitude ); } elsif ( $l->latitude && $l->longitude ) { - $self->latitude = $l->latitude; - $self->longitude = $l->longitude; + $self->latitude( $l->latitude ); + $self->longitude( $l->longitude ); } }