diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-04-09 15:55:46 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-04-09 15:55:46 -0700 |
commit | 6636a4ed5401d2915efb9aabe5345c7ad70f579e (patch) | |
tree | 6bf0e726320c1e7e46b356e594bd0d52559a6735 /FS | |
parent | 6b36f36dbf2cc6ae381827db1f1cdff394a3d334 (diff) |
fix export errors about snarfs, not sure where the problem came in, RT#22454
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/shellcommands.pm | 12 | ||||
-rw-r--r-- | 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 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 |