stop new IP address assignment code from tripping over ancient svc_acct.slipip values...

[freeside.git] / FS / FS / svc_pbx.pm

diff --git a/FS/FS/svc_pbx.pm b/FS/FS/svc_pbx.pm
index 7c228f8..f39234d 100644 (file)
--- a/FS/FS/svc_pbx.pm
+++ b/FS/FS/svc_pbx.pm
@@ -1,5 +1,5 @@
 package FS::svc_pbx;
-use base qw( FS::svc_External_Common );
+use base qw( FS::o2m_Common FS::svc_External_Common );
 
 use strict;
 use Tie::IxHash;
@@ -9,6 +9,7 @@ use FS::Conf;
 use FS::cust_svc;
 use FS::svc_phone;
 use FS::svc_acct;
+use FS::pbx_extension;
 
 =head1 NAME
 
@@ -378,6 +379,11 @@ sub get_cdrs {
   qsearch ( $psearch->{query} )
 }
 
+sub pbx_extension {
+  my $self = shift;
+  qsearch('pbx_extension', { svcnum=>$self->svcnum });
+}
+
 =back
 
 =head1 BUGS