fix part_pkg.comment showing in signup and self-service package order, RT#25557

[freeside.git] / FS / FS / svc_acct.pm

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 6b48384..c5c5f35 100644 (file)
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1,13 +1,13 @@
 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
@@ -55,7 +55,6 @@ use FS::part_export;
 use FS::svc_forward;
 use FS::svc_www;
 use FS::cdr;
-use FS::acct_snarf;
 use FS::tower_sector;
 
 $DEBUG = 0;
@@ -1895,22 +1894,14 @@ 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"
 
 =item cgp_rpop_hashref