diff options
Diffstat (limited to 'fs_signup/fs_signup_server')
-rwxr-xr-x | fs_signup/fs_signup_server | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index 27dc4115c..e0fa9ba5f 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -18,7 +18,6 @@ use FS::Msgcat qw(gettext); use vars qw( $opt $Debug ); -$ENV{SIGNUP_SERVER} = 'TRUE'; $Debug = 2; my $user = shift or die &usage; @@ -95,7 +94,11 @@ while (1) { 'msgcat' => { map { $_=>gettext($_) } qw( passwords_dont_match invalid_card unknown_card_type not_a - ) } + ) }, + + 'statedefault' => $conf->config('statedefault') || 'CA', + + 'countrydefault' => $conf->config('countrydefault') || 'US', }; @@ -133,7 +136,7 @@ while (1) { map { $_ => $signup_data->{$_} } qw( last first ss company address1 address2 city county state zip country - daytime night fax payby payinfo paydate payname referral_custnum comments + daytime night fax payby payinfo paydate payname referral_custnum ), } ); @@ -141,6 +144,9 @@ while (1) { $error ||= "Illegal payment type" unless grep { $_ eq $signup_data->{'payby'} } @payby; + $cust_main->payinfo($cust_main->daytime) + if $cust_main->payby eq 'LECB' && ! $cust_main->payinfo; + my @invoicing_list = split( /\s*\,\s*/, $signup_data->{'invoicing_list'} ); $signup_data->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/; |