blob: 41aabd0db91e6c8aedb0d029f5cfd0914754a123 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
package FS::svc_PBX_Mixin;
use strict;
use FS::Record qw( qsearchs ); # qw(qsearch qsearchs);
use FS::svc_pbx;
=head1 NAME
FS::svc_PBX_Mixin - Mixin class for svc_classes with a pbxsvc field
=head1 SYNOPSIS
package FS::svc_table;
use base qw( FS::svc_PBX_Mixin FS::svc_Common );
=head1 DESCRIPTION
This is a mixin class for svc_ classes that contain a pbxsvc field linking to
a PBX (see L<FS::svc_pbx>).
=head1 METHODS
=over 4
=item svc_pbx
Returns the FS::svc_pbx record for this account's domain (see
L<FS::svc_pbx>).
=cut
# FS::h_svc_acct has a history-aware svc_domain override
sub svc_pbx {
my $self = shift;
#$self->{'_pbxsvc'}
# ? $self->{'_pbxsvc'}
# :
qsearchs( 'svc_pbx', { 'svcnum' => $self->pbxsvc } );
}
=back
=head1 BUGS
=head1 SEE ALSO
L<FS::svc_Common>, L<FS::Record>
=cut
1;
|