diff options
| -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 20e909135..31d3be620 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 1bfdde0d6..87d33b029 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 |