summaryrefslogtreecommitdiff
path: root/fs_signup/fs_signup_server
diff options
context:
space:
mode:
Diffstat (limited to 'fs_signup/fs_signup_server')
-rwxr-xr-xfs_signup/fs_signup_server12
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 '' =~ /^()$/;