summaryrefslogtreecommitdiff
path: root/FS/FS/ClientAPI
diff options
context:
space:
mode:
authorivan <ivan>2011-01-21 19:32:03 +0000
committerivan <ivan>2011-01-21 19:32:03 +0000
commitfd4aeda41e6b9318af8e367d761bb2b2c0a402f9 (patch)
tree4d5b96febf91c85cdfc93c9ce20bbe499fee9f13 /FS/FS/ClientAPI
parentec70b9131ae5df9c58b75e8d6db75e5fddb6362a (diff)
possibly fix problems with templated signup, RT#11218
Diffstat (limited to 'FS/FS/ClientAPI')
-rw-r--r--FS/FS/ClientAPI/Signup.pm102
1 files changed, 54 insertions, 48 deletions
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index 244332396..3dbf5b887 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -509,60 +509,66 @@ sub new_customer {
my $template_custnum = $conf->config('signup_server-prepaid-template-custnum');
my $cust_main;
if ( $template_custnum && $packet->{prepaid_shortform} ) {
- my $template_cust = qsearchs('cust_main', { 'custnum' => $template_custnum } );
- return { 'error' => 'Configuration error' } unless $template_cust;
- $cust_main = new FS::cust_main ( {
- 'agentnum' => $agentnum,
- 'refnum' => $packet->{refnum}
- || $conf->config('signup_server-default_refnum'),
- map { $_ => $template_cust->$_ } qw(
- last first company address1 address2
- city county state zip country
- daytime night fax
-
- ship_last ship_first ship_company ship_address1 ship_address2
- ship_city ship_county ship_state ship_zip ship_country
- ship_daytime ship_night ship_fax
- ),
- map { $_ => $packet->{$_} } qw(
-
- ss stateid stateid_state
-
- payby
- payinfo paycvv paydate payname paystate paytype
- paystart_month paystart_year payissue
- payip
-
- referral_custnum comments
- )
- } );
- }
- else {
- $cust_main = new FS::cust_main ( {
- #'custnum' => '',
- 'agentnum' => $agentnum,
- 'refnum' => $packet->{refnum}
- || $conf->config('signup_server-default_refnum'),
- map { $_ => $packet->{$_} } qw(
+ my $template_cust = qsearchs('cust_main', { 'custnum' => $template_custnum } );
+ return { 'error' => 'Configuration error' } unless $template_cust;
+ $cust_main = new FS::cust_main ( {
+ 'agentnum' => $agentnum,
+ 'refnum' => $packet->{refnum}
+ || $conf->config('signup_server-default_refnum'),
+
+ ( map { $_ => $template_cust->$_ } qw(
+ last first company address1 address2
+ city county state zip country
+ daytime night fax
+
+ ship_last ship_first ship_company ship_address1 ship_address2
+ ship_city ship_county ship_state ship_zip ship_country
+ ship_daytime ship_night ship_fax
+ )
+ ),
- last first ss company address1 address2
- city county state zip country
- daytime night fax stateid stateid_state
+ ( map { $_ => $packet->{$_} } qw(
+ ss stateid stateid_state
- ship_last ship_first ship_ss ship_company ship_address1 ship_address2
- ship_city ship_county ship_state ship_zip ship_country
- ship_daytime ship_night ship_fax
+ payby
+ payinfo paycvv paydate payname paystate paytype
+ paystart_month paystart_year payissue
+ payip
- payby
- payinfo paycvv paydate payname paystate paytype
- paystart_month paystart_year payissue
- payip
+ referral_custnum comments
+ )
+ ),
- referral_custnum comments
- )
+ } );
- } );
+ } else {
+
+ $cust_main = new FS::cust_main ( {
+ #'custnum' => '',
+ 'agentnum' => $agentnum,
+ 'refnum' => $packet->{refnum}
+ || $conf->config('signup_server-default_refnum'),
+
+ map { $_ => $packet->{$_} } qw(
+
+ last first ss company address1 address2
+ city county state zip country
+ daytime night fax stateid stateid_state
+
+ ship_last ship_first ship_ss ship_company ship_address1 ship_address2
+ ship_city ship_county ship_state ship_zip ship_country
+ ship_daytime ship_night ship_fax
+
+ payby
+ payinfo paycvv paydate payname paystate paytype
+ paystart_month paystart_year payissue
+ payip
+
+ referral_custnum comments
+ )
+
+ } );
}
my $agent = qsearchs('agent', { 'agentnum' => $agentnum } );