diff options
| author | ivan <ivan> | 2002-04-19 23:50:37 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-19 23:50:37 +0000 |
| commit | 49e16e519aba0e1bab9c8cbd3a0a8bfc1a74277c (patch) | |
| tree | 6e33da1929ad3264250d9ca6fe8ab4ceb144b0c5 /fs_signup | |
| parent | f9911ed31df63ac52ccc5b119388ea5b2dc24e58 (diff) | |
make necessary stuff for success.html global
Diffstat (limited to 'fs_signup')
| -rwxr-xr-x | fs_signup/FS-SignupClient/cgi/signup.cgi | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fs_signup/FS-SignupClient/cgi/signup.cgi b/fs_signup/FS-SignupClient/cgi/signup.cgi index 839d804..e3d2d8c 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.24 2002-04-19 13:17:56 ivan Exp $ +# $Id: signup.cgi,v 1.25 2002-04-19 23:50:37 ivan Exp $ use strict; use vars qw( @payby $cgi $locales $packages $pops $init_data $error @@ -12,6 +12,7 @@ use vars qw( @payby $cgi $locales $packages $pops $init_data $error $ieak_file $ieak_template $cck_file $cck_template $signup_html $signup_template $success_html $success_template $ac $exch $loc + $email_name $pkg $self_url ); use subs qw( print_form print_okay expselect signup_default success_default ); @@ -245,7 +246,7 @@ sub print_okay { my $password = $1; ( $cgi->param('first'). ' '. $cgi->param('last') ) =~ /^(.*)$/ or die "fatal: invalid email_name got past FS::SignupClient::new_customer"; - my $email_name = $1; + $email_name = $1; #global for template my $pop = pop_info($cgi->param('popnum')); #or die "fatal: invalid popnum got past FS::SignupClient::new_customer"; @@ -255,7 +256,8 @@ sub print_okay { ( $ac, $exch, $loc ) = ( '', '', ''); #presumably you're not using them. } - my $pkg = ( grep { $_->{'pkgpart'} eq $pkgpart } @$packages )[0]->{'pkg'}; + #global for template + $pkg = ( grep { $_->{'pkgpart'} eq $pkgpart } @$packages )[0]->{'pkg'}; if ( $ieak_template && $user_agent->platform eq 'ia32' |