X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fsignup.cgi;h=7d1679b5c6f5b66b0927768b43d7b38f917b4e99;hb=ca16e6099d6b0b979badb1bca5d2b7413aa70206;hp=fb4a7c55111a0993051e71539be7bad3c6c33248;hpb=81e426fe755eaea508041bc2d7b25ac44c777434;p=freeside.git diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi index fb4a7c551..7d1679b5c 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.cgi +++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi @@ -17,9 +17,11 @@ use subs qw( print_form print_okay print_decline ); use CGI; #use CGI::Carp qw(fatalsToBrowser); +use Tie::IxHash; use Text::Template; use Business::CreditCard; use HTTP::BrowserDetect; +use HTML::Widgets::SelectLayers; use FS::SelfService qw( signup_info new_customer ); #acceptable payment methods @@ -139,7 +141,7 @@ if ( -e $decline_html ) { $cgi = new CGI; -$init_data = signup_info( 'agentnum' => $agentnum, +$init_data = signup_info( 'agentnum' => $agentnum || scalar($cgi->param('agentnum')), 'promo_code' => scalar($cgi->param('promo_code')), 'reg_code' => uc(scalar($cgi->param('reg_code'))), ); @@ -318,8 +320,14 @@ sub print_collect { } sub print_decline { + my $r = { + %{$init_data}, + }; + print $cgi->header( '-expires' => 'now' ), - $decline_template->fill_in(); + $decline_template->fill_in( PACKAGE => 'FS::SelfService::_signupcgi', + HASH => $r + ); } sub print_okay { @@ -387,6 +395,8 @@ sub print_okay { print $cgi->header( '-expires' => 'now' ), $success_template->fill_in( HASH => { + %{$init_data}, + email_name => $email_name, pkg => $pkg, part_pkg => \$part_pkg,