diff options
author | ivan <ivan> | 2007-02-04 00:01:40 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-02-04 00:01:40 +0000 |
commit | d30b47bd6c6b3c93dab69ec054cafe59358f0b82 (patch) | |
tree | 3098d37591d0f181a937d2a09d73ac96d3181df1 /FS/FS/ClientAPI | |
parent | 260c76262745d1a96e7533e1a8498e6a582b2c3d (diff) |
quieter
Diffstat (limited to 'FS/FS/ClientAPI')
-rw-r--r-- | FS/FS/ClientAPI/Signup.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm index 4519dc090..5a8f8e168 100644 --- a/FS/FS/ClientAPI/Signup.pm +++ b/FS/FS/ClientAPI/Signup.pm @@ -277,7 +277,9 @@ sub new_customer { $cust_main->payinfo($cust_main->daytime) if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo; - my @invoicing_list = split( /\s*\,\s*/, $packet->{'invoicing_list'} ); + my @invoicing_list = $packet->{'invoicing_list'} + ? split( /\s*\,\s*/, $packet->{'invoicing_list'} ) + : (); $packet->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/; my $pkgpart = $1; |