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

diff --git a/FS/FS/part_export/shellcommands.pm b/FS/FS/part_export/shellcommands.pm
index f964af3..9408d14 100644 (file)
--- 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 e36dbbd..6b48384 100644 (file)
--- 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