X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fphone_avail.pm;h=967d7179e4228fedd5e26452f0b4956aa961e024;hp=f05f05be2e23e65b59beedcf09e28bbf66bca405;hb=74e058c8a010ef6feb539248a550d0bb169c1e94;hpb=967b1c01527201e63b988f6aeea8021a7d18f421

diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm
index f05f05be2..967d7179e 100644
--- a/FS/FS/phone_avail.pm
+++ b/FS/FS/phone_avail.pm
@@ -2,9 +2,10 @@ package FS::phone_avail;
 
 use strict;
 use vars qw( @ISA $DEBUG $me );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearch qsearchs dbh );
+use FS::cust_svc;
 
-@ISA = qw(FS::Record);
+@ISA = qw(FS::cust_main_Mixin FS::Record);
 
 $me = '[FS::phone_avail]';
 $DEBUG = 0;
@@ -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;