diff options
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | PaymentsGateway.pm | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -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 + -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 diff --git a/PaymentsGateway.pm b/PaymentsGateway.pm index 6fabcbf..956aed5 100644 --- a/PaymentsGateway.pm +++ b/PaymentsGateway.pm @@ -91,6 +91,7 @@ sub map_fields { 'discover' => 10, 'cc' => 10, 'check' => 20, + 'echeck' => 20, ); #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 ); |