[freeside-commits] branch master updated. 6636a4ed5401d2915efb9aabe5345c7ad70f579e

[Ivan]

The branch, master has been updated
       via  6636a4ed5401d2915efb9aabe5345c7ad70f579e (commit)
      from  6b36f36dbf2cc6ae381827db1f1cdff394a3d334 (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 6636a4ed5401d2915efb9aabe5345c7ad70f579e
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Tue Apr 9 15:55:46 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 f964af3..9408d14 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 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
 

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

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