projects
/
Business-OnlinePayment-IPPay.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4c36b29
)
ACH SEC code: Allow setting, default to CCD for business accounts, PPD otherwise...
author
Ivan Kohler
<ivan@freeside.biz>
Tue, 30 Mar 2021 16:28:31 +0000
(09:28 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Tue, 30 Mar 2021 16:28:31 +0000
(09:28 -0700)
Changes
patch
|
blob
|
history
IPPay.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
5e83b69
..
85372bc
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-2,6
+2,8
@@
Revision history for Perl extension Business::OnlinePayment::IPPay.
0.10 unreleased
- UserIPAddr is now UserIPAddress
0.10 unreleased
- UserIPAddr is now UserIPAddress
+ - ACH SEC code: Allow setting, default to CCD for business accounts,
+ PPD otherwise (was: always PPD)
0.09 Tue Jun 10 23:26:54 PDT 2014
- Set UDField3 per IPPay request
0.09 Tue Jun 10 23:26:54 PDT 2014
- Set UDField3 per IPPay request
diff --git
a/IPPay.pm
b/IPPay.pm
index
8060892
..
666f5e8
100644
(file)
--- a/
IPPay.pm
+++ b/
IPPay.pm
@@
-448,7
+448,8
@@
sub _xmlwrite {
if ( $item eq 'ACH' ) {
$att{'Type'} = $self->{_content}->{'account_type'}
if $self->{_content}->{'account_type'}; #necessary so we don't pass empty?
if ( $item eq 'ACH' ) {
$att{'Type'} = $self->{_content}->{'account_type'}
if $self->{_content}->{'account_type'}; #necessary so we don't pass empty?
- $att{'SEC'} = 'PPD';
+ $att{'SEC'} = $self->{_content}->{'nacha_sec_code'}
+ || ( $att{'Type'} =~ /business/i ? 'CCD' : 'PPD' );
}
$writer->startTag($item, %att);
}
$writer->startTag($item, %att);