fix export errors about snarfs, not sure where the problem came in, RT#22454

1 files changed, 16 insertions, 14 deletions

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index e36dbbd..6b48384 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1895,20 +1895,22 @@ sub email {
   $self->username. '@'. $self->domain(@_);
 }
 
-=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',
-  });
-}
+# 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 cgp_rpop_hashref