[freeside-commits] branch FREESIDE_2_3_BRANCH updated. 3681a0191d49e41418a999a39007692bb0adabcb

[Ivan]

The branch, FREESIDE_2_3_BRANCH has been updated
       via  3681a0191d49e41418a999a39007692bb0adabcb (commit)
      from  2c658e088ee74f31c33ae5e22e54cbc81bbdfcc8 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3681a0191d49e41418a999a39007692bb0adabcb
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Tue Apr 9 15:55:47 2013 -0700

    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 20e9091..31d3be6 100644
--- a/FS/FS/part_export/shellcommands.pm
+++ b/FS/FS/part_export/shellcommands.pm
@@ -260,12 +260,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 1bfdde0..87d33b0 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1883,20 +1883,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
 

-----------------------------------------------------------------------

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