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;
use FS::cust_svc;
use FS::svc_phone;
use FS::svc_acct;
+use FS::pbx_extension;
=head1 NAME
qsearch ( $psearch->{query} )
}
+sub pbx_extension {
+ my $self = shift;
+ qsearch('pbx_extension', { svcnum=>$self->svcnum });
+}
+
=back
=head1 BUGS