From 393ce75d2d5741e71e0bce9f1691bdb4c70a8bc1 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 10 Nov 2010 19:22:40 +0000 Subject: [PATCH] add missing cust_svc method to phone_avail, RT#10520 --- FS/FS/phone_avail.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) 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; -- 2.11.0