diff options
Diffstat (limited to 'FS/FS/phone_avail.pm')
-rw-r--r-- | FS/FS/phone_avail.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm index f05f05b..d60b2e0 100644 --- a/FS/FS/phone_avail.pm +++ b/FS/FS/phone_avail.pm @@ -3,6 +3,7 @@ package FS::phone_avail; use strict; use vars qw( @ISA $DEBUG $me ); use FS::Record qw( qsearch qsearchs ); +use FS::cust_svc; @ISA = qw(FS::Record); @@ -151,6 +152,16 @@ sub check { $self->SUPER::check; } +=item cust_svc + +=cut + +sub cust_svc { + my $self = shift; + return '' unless $self->svcnum; + qsearchs('cust_svc', { 'svcnum' => $self->svcnum }); +} + sub process_batch_import { my $job = shift; |