From 6636a4ed5401d2915efb9aabe5345c7ad70f579e Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 9 Apr 2013 15:55:46 -0700
Subject: [PATCH] fix export errors about snarfs, not sure where the problem
 came in, RT#22454

---
 FS/FS/part_export/shellcommands.pm | 12 ++++++------
 FS/FS/svc_acct.pm                  | 30 ++++++++++++++++--------------
 2 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm
index f964af31c..9408d1454 100644
--- a/FS/FS/part_export/shellcommands.pm
+++ b/FS/FS/part_export/shellcommands.pm
@@ -243,12 +243,12 @@ sub _export_command {
     ${$_} = $svc_acct->getfield($_) foreach $svc_acct->fields;
 
     # snarfs are unused at this point?
-    my $count = 1;
-    foreach my $acct_snarf ( $svc_acct->acct_snarf ) {
-      ${"snarf_$_$count"} = shell_quote( $acct_snarf->get($_) )
-        foreach qw( machine username _password );
-      $count++;
-    }
+    # my $count = 1;
+    # foreach my $acct_snarf ( $svc_acct->acct_snarf ) {
+    #   ${"snarf_$_$count"} = shell_quote( $acct_snarf->get($_) )
+    #     foreach qw( machine username _password );
+    #   $count++;
+    # }
   }
 
   my $cust_pkg = $svc_acct->cust_svc->cust_pkg;
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index e36dbbd69..6b4838401 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
 
-- 
2.11.0