add email address to shellcommands

1 files changed, 3 insertions, 9 deletions

diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server
index e0fa9ba5f..27dc4115c 100755
--- a/fs_signup/fs_signup_server
+++ b/fs_signup/fs_signup_server
@@ -18,6 +18,7 @@ use FS::Msgcat qw(gettext);
 
 use vars qw( $opt $Debug );
 
+$ENV{SIGNUP_SERVER} = 'TRUE';
 $Debug = 2;
 
 my $user = shift or die &usage;
@@ -94,11 +95,7 @@ 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',
+    ) }
 
   };
 
@@ -136,7 +133,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
+        daytime night fax payby payinfo paydate payname referral_custnum comments
       ),
 
     } );
@@ -144,9 +141,6 @@ 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 '' =~ /^()$/;