projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3b1fda9
)
default tags on API signup, RT#32727
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 23 Dec 2014 20:57:35 +0000
(12:57 -0800)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 23 Dec 2014 20:57:35 +0000
(12:57 -0800)
FS/FS/ClientAPI/Signup.pm
patch
|
blob
|
history
diff --git
a/FS/FS/ClientAPI/Signup.pm
b/FS/FS/ClientAPI/Signup.pm
index
554fc30
..
6116609
100644
(file)
--- a/
FS/FS/ClientAPI/Signup.pm
+++ b/
FS/FS/ClientAPI/Signup.pm
@@
-24,6
+24,7
@@
use FS::queue;
use FS::reg_code;
use FS::payby;
use FS::banned_pay;
use FS::reg_code;
use FS::payby;
use FS::banned_pay;
+use FS::part_tag;
$DEBUG = 1;
$me = '[FS::ClientAPI::Signup]';
$DEBUG = 1;
$me = '[FS::ClientAPI::Signup]';
@@
-521,6
+522,27
@@
sub new_customer {
#shares some stuff with htdocs/edit/process/cust_main.cgi... take any
# common that are still here and library them.
#shares some stuff with htdocs/edit/process/cust_main.cgi... take any
# common that are still here and library them.
+
+ my %cust_main = (
+ 'agentnum' => $agentnum,
+ 'refnum' => $packet->{refnum}
+ || $conf->config('signup_server-default_refnum'),
+ 'tagnum' => [ FS::part_tag->default_tags ],
+
+ ( map { $_ => $packet->{$_} } qw(
+ ss stateid stateid_state
+
+ payby
+ payinfo paycvv paydate payname paystate paytype
+ paystart_month paystart_year payissue
+ payip
+
+ referral_custnum comments
+ )
+ ),
+
+ );
+
my $template_custnum = $conf->config('signup_server-prepaid-template-custnum');
my $cust_main;
if ( $template_custnum && $packet->{prepaid_shortform} ) {
my $template_custnum = $conf->config('signup_server-prepaid-template-custnum');
my $cust_main;
if ( $template_custnum && $packet->{prepaid_shortform} ) {
@@
-528,27
+550,10
@@
sub new_customer {
my $template_cust = qsearchs('cust_main', { 'custnum' => $template_custnum } );
return { 'error' => 'Configuration error' } unless $template_cust;
$cust_main = new FS::cust_main ( {
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 daytime night fax mobile
- )
+ %cust_main,
+ map { $_ => $template_cust->$_ } qw(
+ last first company daytime night fax mobile
),
),
-
- ( map { $_ => $packet->{$_} } qw(
- ss stateid stateid_state
-
- payby
- payinfo paycvv paydate payname paystate paytype
- paystart_month paystart_year payissue
- payip
-
- referral_custnum comments
- )
- ),
-
} );
$bill_hash = { $template_cust->bill_location->location_hash };
} );
$bill_hash = { $template_cust->bill_location->location_hash };
@@
-557,23
+562,11
@@
sub new_customer {
} else {
$cust_main = new FS::cust_main ( {
} else {
$cust_main = new FS::cust_main ( {
- #'custnum' => '',
- 'agentnum' => $agentnum,
- 'refnum' => $packet->{refnum}
- || $conf->config('signup_server-default_refnum'),
-
+ %cust_main,
map { $_ => $packet->{$_} } qw(
map { $_ => $packet->{$_} } qw(
- last first ss company
- daytime night fax mobile
- stateid stateid_state
- payby
- payinfo paycvv paydate payname paystate paytype
- paystart_month paystart_year payissue
- payip
+ last first company daytime night fax mobile
override_ban_warn
override_ban_warn
- referral_custnum comments
),
),
-
} );
}
} );
}
@@
-933,15
+926,15
@@
sub new_customer_minimal {
# common that are still here and library them.
my $cust_main = new FS::cust_main ( {
# common that are still here and library them.
my $cust_main = new FS::cust_main ( {
-
#'custnum' => ''
,
- '
agentnum' => $agentnum,
- 'refnum' => $packet->{refnum}
-
|| $conf->config('signup_server-default_refnum')
,
- 'payby'
=> 'BILL',
+
'agentnum' => $agentnum
,
+ '
refnum' => $packet->{refnum}
+ || $conf->config('signup_server-default_refnum'),
+
'tagnum' => [ FS::part_tag->default_tags ]
,
+ 'payby' => 'BILL',
map { $_ => $packet->{$_} } qw(
map { $_ => $packet->{$_} } qw(
- last first
ss company
- daytime night fax mobile
+ last first
company daytime night fax mobile
+ ss
),
} );
),
} );