diff options
Diffstat (limited to 'FS/FS/phone_avail.pm')
-rw-r--r-- | FS/FS/phone_avail.pm | 24 |
1 files changed, 3 insertions, 21 deletions
diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm index 6d49507..52bbdeb 100644 --- a/FS/FS/phone_avail.pm +++ b/FS/FS/phone_avail.pm @@ -1,14 +1,12 @@ package FS::phone_avail; +use base qw( FS::cust_main_Mixin FS::Record ); use strict; -use vars qw( @ISA $DEBUG $me ); +use vars qw( $DEBUG $me ); +use FS::Misc::DateTime qw( parse_datetime ); use FS::Record qw( qsearch qsearchs dbh ); use FS::cust_svc; -use FS::Misc::DateTime qw( parse_datetime ); use FS::msa; -use Data::Dumper; - -@ISA = qw(FS::cust_main_Mixin FS::Record); $me = '[FS::phone_avail]'; $DEBUG = 0; @@ -176,24 +174,8 @@ sub cust_svc { =item part_export -=cut - -sub part_export { - my $self = shift; - return '' unless $self->exportnum; - qsearchs('part_export', { 'exportnum' => $self->exportnum }); -} - =item lata -=cut - -sub lata { - my $self = shift; - return '' unless $self->latanum; - qsearchs('lata', { 'latanum' => $self->latanum }); -} - =item msa2msanum Translate free-form MSA name to a msa.msanum |