X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=fs_signup%2FFS-SignupClient%2Fcgi%2Fsignup.cgi;fp=fs_signup%2FFS-SignupClient%2Fcgi%2Fsignup.cgi;h=8dae9dd1292e8564c0d41ecec187bd8fa0bf5772;hp=5ca93d2891d49b2c9d5a56f3b5a65fc8f1391e9f;hb=e58b9fa1cdf0693f29d0d3db9c861cf4ecd7a77c;hpb=a5bc5bcbadafe55b31d9e97fccb6122477e390fb diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 5ca93d289..8dae9dd12 100755 --- a/fs_signup/FS-SignupClient/cgi/signup.cgi +++ b/fs_signup/FS-SignupClient/cgi/signup.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: signup.cgi,v 1.48 2003-10-25 02:05:44 ivan Exp $ +# $Id: signup.cgi,v 1.49 2003-12-10 23:53:34 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages @@ -10,7 +10,7 @@ use vars qw( @payby $cgi $locales $packages $country $zip $daytime $night $fax $invoicing_list $payby $payinfo $paycvv $paydate $payname $referral_custnum $init_popstate $pkgpart $username $password $password2 $sec_phrase $popnum - $agentnum + $agentnum $refnum $ieak_file $ieak_template $cck_file $cck_template $signup_html $signup_template $success_html $success_template @@ -218,6 +218,7 @@ if ( defined $cgi->param('magic') ) { #$agentnum, # = $cgi->param('agentnum'), $agentnum ||= $cgi->param('agentnum'); $init_popstate = $cgi->param('init_popstate'); + $refnum = $cgi->param('refnum'); if ( $cgi->param('_password') ne $cgi->param('_password2') ) { $error = $init_data->{msgcat}{passwords_dont_match}; #msgcat @@ -266,6 +267,7 @@ if ( defined $cgi->param('magic') ) { '_password' => $password, 'popnum' => $popnum, 'agentnum' => $agentnum, + 'refnum' => $refnum, map { $_ => $cgi->param($_) } grep { /^snarf_/ } $cgi->param } ); @@ -314,6 +316,7 @@ if ( defined $cgi->param('magic') ) { $popnum = ''; $referral_custnum = $cgi->param('ref') || ''; $init_popstate = $cgi->param('init_popstate') || ''; + $refnum = $init_data->{'refnum'}; print_form; }