diff options
author | ivan <ivan> | 2010-11-10 19:22:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-11-10 19:22:40 +0000 |
commit | 393ce75d2d5741e71e0bce9f1691bdb4c70a8bc1 (patch) | |
tree | 6dd31410b949d6c5aba46d772a807743780fa50c /FS/FS/phone_avail.pm | |
parent | 575701c4066d6ed336fec0dd43247d618d77efab (diff) |
add missing cust_svc method to phone_avail, RT#10520
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 f05f05be2..d60b2e0ef 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; |