From ae9dbc07ae4658bc4ebaedb17625f1201fedb236 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 23 Dec 2002 19:45:45 +0000
Subject: [PATCH] this sucks

---
 Changes            | 1 +
 PaymentsGateway.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 7e9e812..1f95756 100644
--- 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
--- 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 );
-- 
2.11.0