diff options
author | Christopher Burger <burgerc@freeside.biz> | 2019-03-28 14:18:38 -0400 |
---|---|---|
committer | Christopher Burger <burgerc@freeside.biz> | 2019-03-28 14:18:38 -0400 |
commit | fe10e6c6a2e5de7a2ff468497790d2a317ec0c77 (patch) | |
tree | b05d0600951960c279b4df38c5f9ce65410a8a11 | |
parent | 4a88f08ffbf1c9d2f3da8a6d6d6a7d46e99dbc19 (diff) |
RT# 83091 - fixed selfserivce to insert payment account if one does not exits
-rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index c303ae6..e813016 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -752,8 +752,13 @@ sub edit_info { ## get default cust_payby and change it. For old v3 selfservice that upgraded to v4. this is for v4 only my ($cust_payby) = $cust_main->cust_payby(); - $p->{'custpaybynum'} = $cust_payby->custpaybynum; - update_payby($p); + if ($cust_payby) { + $p->{'custpaybynum'} = $cust_payby->custpaybynum; + update_payby($p); + } + else { + insert_payby($p); + } } my $new = new FS::cust_main { $cust_main->hash }; @@ -1703,6 +1708,9 @@ sub insert_payby { my $payinfo2 = $1; $p->{'payinfo'} = $payinfo1. '@'. $payinfo2; } + elsif ($p->{'payby'} eq 'CARD') { + $p->{paydate} = $p->{year} . '-' . $p->{month} . '-01' unless $p->{paydate}; + } my $cust_payby = new FS::cust_payby { 'custnum' => $custnum, |