projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac8d0ca
)
fix 4.x cust_payby vs legacy customer import, RT#77221
author
Ivan Kohler
<ivan@freeside.biz>
Fri, 25 Aug 2017 17:40:26 +0000
(10:40 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Fri, 25 Aug 2017 17:40:26 +0000
(10:40 -0700)
FS/FS/cust_main/Import.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main/Import.pm
b/FS/FS/cust_main/Import.pm
index
f9b167c
..
9624529
100644
(file)
--- 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*$/ ) {
if ( $cust_main{'payinfo'} =~ /^\s*(\d+\@[\d\.]+)\s*$/ ) {
+ delete $cust_main{'payinfo'};
+
$cust_payby = new FS::cust_payby {
'payby' => 'CHEK',
'payinfo' => $1,
$cust_payby = new FS::cust_payby {
'payby' => 'CHEK',
'payinfo' => $1,
@@
-417,9
+419,14
@@
sub batch_import {
} elsif ($cust_main{'payinfo'} =~ /^\s*([AD]?)(.*)\s*$/) {
} 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,
$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'},
};
}
};
}
@@
-504,7
+511,7
@@
sub batch_import {
}
my %options = ('invoicing_list' => $invoicing_list);
}
my %options = ('invoicing_list' => $invoicing_list);
- $options{'cust_payby'} =
$cust_payby
if $cust_payby;
+ $options{'cust_payby'} =
[ $cust_payby ]
if $cust_payby;
my $error = $cust_main->insert( \%hash, %options );
my $error = $cust_main->insert( \%hash, %options );