X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fphone_avail.pm;h=52bbdeb10a41efe3ec643acda9d60c9cbe463aec;hb=a0e00fa0547e99893c735ab3dbdacdb2bb054f5a;hp=6d49507b3f500be9f7fd1c21873cbd4d25c588c2;hpb=806a2dff579e43c9c40b50aa6ed20e91d82ddb8e;p=freeside.git diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm index 6d49507b3..52bbdeb10 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