pbx extensions, RT#26957

diff --git a/FS/FS/svc_pbx.pm b/FS/FS/svc_pbx.pm
index 7899621..f39234d 100644 (file)
--- 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