pbx extensions, RT#26957

1 files changed, 6 insertions, 0 deletions

diff --git a/FS/FS/svc_pbx.pm b/FS/FS/svc_pbx.pm
index 7899621b2..f39234d8b 100644
--- a/FS/FS/svc_pbx.pm
+++ b/FS/FS/svc_pbx.pm
@@ -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