${$_} = $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;
$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