diff options
author | ivan <ivan> | 2001-08-28 16:58:08 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-08-28 16:58:08 +0000 |
commit | 5e99168da38e7616fc726242ce7d85e140f22c6f (patch) | |
tree | b253e9fb12bd165ddd7ca8d32731fa947b219c3c /fs_signup/fs_signup_server | |
parent | aa7b51c0794f6a61e522fbba978f6c64446d8696 (diff) |
customer-to-customer referrals in singup server
Diffstat (limited to 'fs_signup/fs_signup_server')
-rwxr-xr-x | fs_signup/fs_signup_server | 49 |
1 files changed, 25 insertions, 24 deletions
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index c6ee665fa..43683b01d 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -88,9 +88,9 @@ while (1) { chop( my( $first, $last, $ss, $company, $address1, $address2, $city, $county, $state, $zip, $country, $daytime, $night, $fax, $payby, $payinfo, - $paydate, $payname, $invoicing_list, $pkgpart, $username, $password, - $popnum, - ) = map { scalar(<$reader>) } ( 1 .. 23 ) ); + $paydate, $payname, $invoicing_list, $referral_custnum, + $pkgpart, $username, $password, $popnum, + ) = map { scalar(<$reader>) } ( 1 .. 24 ) ); warn "[fs_signup_server] Processing signup...\n" if $Debug; @@ -99,27 +99,28 @@ while (1) { #shares some stuff with htdocs/edit/process/cust_main.cgi... take any # common that are still here and library them. my $cust_main = new FS::cust_main ( { - 'custnum' => '', - 'agentnum' => $agentnum, - 'refnum' => $refnum, - 'last' => $last, - 'first' => $first, - 'ss' => $ss, - 'company' => $company, - 'address1' => $address1, - 'address2' => $address2, - 'city' => $city, - 'county' => $county, - 'state' => $state, - 'zip' => $zip, - 'country' => $country, - 'daytime' => $daytime, - 'night' => $night, - 'fax' => $fax, - 'payby' => $payby, - 'payinfo' => $payinfo, - 'paydate' => $paydate, - 'payname' => $payname, + 'custnum' => '', + 'agentnum' => $agentnum, + 'refnum' => $refnum, + 'last' => $last, + 'first' => $first, + 'ss' => $ss, + 'company' => $company, + 'address1' => $address1, + 'address2' => $address2, + 'city' => $city, + 'county' => $county, + 'state' => $state, + 'zip' => $zip, + 'country' => $country, + 'daytime' => $daytime, + 'night' => $night, + 'fax' => $fax, + 'payby' => $payby, + 'payinfo' => $payinfo, + 'paydate' => $paydate, + 'payname' => $payname, + 'referral_custnum' => $referral_custnum, } ); $error = "Illegal payment type" unless grep { $_ eq $payby } @payby; |