projects
/
Business-OnlinePayment-PaymentsGateway.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9b9f7db
)
this sucks
author
ivan
<ivan>
Mon, 23 Dec 2002 19:45:45 +0000
(19:45 +0000)
committer
ivan
<ivan>
Mon, 23 Dec 2002 19:45:45 +0000
(19:45 +0000)
Changes
patch
|
blob
|
history
PaymentsGateway.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
7e9e812
..
1f95756
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-3,6
+3,7
@@
Revision history for Perl extension Business::OnlinePayment::PaymentsGateway.
0.02 unreleased
-quieter tests on older perl
-don't need to redeclare test_transaction
0.02 unreleased
-quieter tests on older perl
-don't need to redeclare test_transaction
+ -echeck or check, gah
0.01 Tue Dec 17 11:18:38 PST 2002
-original version; created by ivan 1.0 on an aeroplane to OAK
0.01 Tue Dec 17 11:18:38 PST 2002
-original version; created by ivan 1.0 on an aeroplane to OAK
diff --git
a/PaymentsGateway.pm
b/PaymentsGateway.pm
index
6fabcbf
..
956aed5
100644
(file)
--- a/
PaymentsGateway.pm
+++ b/
PaymentsGateway.pm
@@
-91,6
+91,7
@@
sub map_fields {
'discover' => 10,
'cc' => 10,
'check' => 20,
'discover' => 10,
'cc' => 10,
'check' => 20,
+ 'echeck' => 20,
);
#pg_type/action = action + type
);
#pg_type/action = action + type
@@
-174,7
+175,7
@@
sub submit {
)
);
)
);
- if ( $content{'type'} =~ /^check$/i ) {
+ if ( $content{'type'} =~ /^
e?
check$/i ) {
push @fields, qw( ecom_payment_check_trn
ecom_payment_check_account
ecom_payment_check_account_type );
push @fields, qw( ecom_payment_check_trn
ecom_payment_check_account
ecom_payment_check_account_type );