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:29:48 -0400 |
commit | ba0afcb2c51e2aaa5b0c7d52c7e04e13c965c15b (patch) | |
tree | fb3ab4cc054d3d0e0f82d11129ba99bee45b8b8f | |
parent | b888fee860fa5d346fb218292aa0db2d8f4dc9a8 (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 7d49c87..162e6ae 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 }; @@ -1705,6 +1710,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, |