diff options
Diffstat (limited to 'FS/FS/ClientAPI/MyAccount.pm')
| -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, |