diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-08-25 10:40:30 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-08-25 10:40:30 -0700 |
| commit | 2ba25f8bd8dedf4ec194727b9669508946032aba (patch) | |
| tree | f551b91c5a96cdb894dfe52d21fdc219e5f0619e /FS/FS/cust_main | |
| parent | fd1fe8f72b25a60966f9a2a05943d312c7240df4 (diff) | |
fix 4.x cust_payby vs legacy customer import, RT#77221
Diffstat (limited to 'FS/FS/cust_main')
| -rw-r--r-- | FS/FS/cust_main/Import.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/cust_main/Import.pm b/FS/FS/cust_main/Import.pm index 0734c0e..9624529 100644 --- a/FS/FS/cust_main/Import.pm +++ b/FS/FS/cust_main/Import.pm @@ -410,6 +410,8 @@ sub batch_import { if ( $cust_main{'payinfo'} =~ /^\s*(\d+\@[\d\.]+)\s*$/ ) { + delete $cust_main{'payinfo'}; + $cust_payby = new FS::cust_payby { 'payby' => 'CHEK', 'payinfo' => $1, @@ -417,9 +419,14 @@ sub batch_import { } elsif ($cust_main{'payinfo'} =~ /^\s*([AD]?)(.*)\s*$/) { + delete $cust_main{'payinfo'}; + $cust_payby = new FS::cust_payby { 'payby' => ($1 eq 'D') ? 'DCRD' : 'CARD', 'payinfo' => $2, + 'paycvv' => delete $cust_main{'paycvv'}, + 'paydate' => delete $cust_main{'paydate'}, + 'payname' => $cust_main{'first'}. ' '. $cust_main{'last'}, }; } |