add missing cust_svc method to phone_avail, RT#10520

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;