FS/FS/svc_PBX_Mixin.pm

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