diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-04-10 09:34:01 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-10 09:34:01 -0700 |
commit | b91dcaf3fc07c23955ce571c2257df4efff2923a (patch) | |
tree | da054de5c8a5ffba0752f057ae56a4ba6c24c3bf /FS/FS/ClientAPI/Signup.pm | |
parent | ad66b8e85a07f28adb3c8b5da7eff5ea69f31e62 (diff) |
new_customer_minimal accepts address, & doc it, RT#34084
Diffstat (limited to 'FS/FS/ClientAPI/Signup.pm')
-rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm index 1c62f61f4..e1ee6cdda 100644 --- a/FS/FS/ClientAPI/Signup.pm +++ b/FS/FS/ClientAPI/Signup.pm @@ -636,6 +636,16 @@ sub new_customer { $cust_main->payinfo($cust_main->daytime) if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo; + if ( grep length($packet->{$_}), FS::cust_main->location_fields ) { + my $bill_hash; + foreach my $f (FS::cust_main->location_fields) { + $bill_hash->{$f} = $packet->{$f}; + } + my $bill_location = FS::cust_location->new($bill_hash); + $cust_main->set('bill_location' => $bill_location); + $cust_main->set('ship_location' => $bill_location); + } + my @invoicing_list = $packet->{'invoicing_list'} ? split( /\s*\,\s*/, $packet->{'invoicing_list'} ) : (); |