diff options
author | mark <mark> | 2011-12-28 23:55:32 +0000 |
---|---|---|
committer | mark <mark> | 2011-12-28 23:55:32 +0000 |
commit | 0978ea95c15ee2af833b20b5985d3b57e194966d (patch) | |
tree | eabe39074d93c8fe3167ae21dd2768d231a8bb65 /FS/FS/svc_broadband.pm | |
parent | 40f436877b2334fc2d4fd34c50d54807ae8777af (diff) |
broadband_nas export, #15284
Diffstat (limited to 'FS/FS/svc_broadband.pm')
-rwxr-xr-x | FS/FS/svc_broadband.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm index 94c285b..7be8a36 100755 --- a/FS/FS/svc_broadband.pm +++ b/FS/FS/svc_broadband.pm @@ -2,6 +2,8 @@ package FS::svc_broadband; use strict; use vars qw(@ISA $conf); + +use base qw(FS::svc_Radius_Mixin FS::svc_Tower_Mixin FS::svc_Common); use NetAddr::IP; use FS::Record qw( qsearchs qsearch dbh ); use FS::svc_Common; @@ -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; }; @@ -399,11 +399,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 ); } } |