);
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
$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'))),
);
}
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 {
print $cgi->header( '-expires' => 'now' ),
$success_template->fill_in( HASH => {
+ %{$init_data},
+
email_name => $email_name,
pkg => $pkg,
part_pkg => \$part_pkg,