From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 10 Apr 2013 20:01:39 +0000 (-0700)
Subject: snarfs are used by commuigate pro RPOP
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=942d6c9ed24ac236abd050773cc38a9a6694357f

snarfs are used by commuigate pro RPOP
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 6b4838401..26d6e5b72 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