this sucks

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
+       -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 (file)
--- 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 );