package FS::svc_acct;
-
-use strict;
-use base qw( FS::svc_Domain_Mixin
- FS::svc_CGP_Mixin
- FS::svc_CGPRule_Mixin
+use base qw( FS::svc_Domain_Mixin FS::svc_PBX_Mixin
+ FS::svc_CGP_Mixin FS::svc_CGPRule_Mixin
FS::svc_Radius_Mixin
FS::svc_Tower_Mixin
FS::svc_IP_Mixin
- FS::svc_Common );
+ FS::svc_Common
+ );
+
+use strict;
use vars qw( $DEBUG $me $conf $skip_fuzzyfiles
$dir_prefix @shells $usernamemin
$usernamemax $passwordmin $passwordmax
use FS::svc_forward;
use FS::svc_www;
use FS::cdr;
-use FS::acct_snarf;
use FS::tower_sector;
$DEBUG = 0;
$self->username. '@'. $self->domain(@_);
}
-# snarfs are unused at this point?
-#
-# =item acct_snarf
-#
-# Returns an array of FS::acct_snarf records associated with the account.
-#
-# =cut
-#
-# sub acct_snarf {
-# my $self = shift;
-# qsearch({
-# 'table' => 'acct_snarf',
-# 'hashref' => { 'svcnum' => $self->svcnum },
-# #'order_by' => 'ORDER BY priority ASC',
-# });
-# }
+
+=item acct_snarf
+
+Returns an array of FS::acct_snarf records associated with the account.
+
+=cut
+
+# unused as originally intended, but now by Communigate Pro "RPOP"
=item cgp_rpop_hashref