diff options
Diffstat (limited to 'FS/FS/svc_acct.pm')
-rw-r--r-- | FS/FS/svc_acct.pm | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 6b48384..26d6e5b 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -1895,22 +1895,22 @@ sub email { $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" +sub acct_snarf { + my $self = shift; + qsearch({ + 'table' => 'acct_snarf', + 'hashref' => { 'svcnum' => $self->svcnum }, + #'order_by' => 'ORDER BY priority ASC', + }); +} =item cgp_rpop_hashref |