From 86dd019910be3db43cbe065601c14d23c7e0597d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 25 Mar 2006 06:49:16 +0000
Subject: [PATCH] s/CHECK/ECHECK/, DOH

---
 Changes             | 1 +
 MANIFEST            | 3 +++
 OpenECHO.pm         | 2 +-
 t/bad_check.t       | 2 +-
 t/check.t           | 2 +-
 t/crypt_bad_check.t | 2 +-
 t/crypt_check.t     | 2 +-
 7 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/Changes b/Changes
index 25e8f10..b8d0000 100644
--- a/Changes
+++ b/Changes
@@ -9,6 +9,7 @@
 	  "try void first, if it fails, try credit" idiom will work.
 	- tests: enable check.t and add crypt_check.t and {crypt_}bad_check.t
 	- update with new test account
+	- s/CHECK/ECHECK/, DOH
 
 0.02  Mon Sep 13 17:14:29 2004
 	- update test account with new PIN
diff --git a/MANIFEST b/MANIFEST
index a10629b..5cca117 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -13,6 +13,9 @@ t/bop.t
 t/capture.t
 t/bad_card.t
 t/crypt_bad_card.t
+t/bad_check.t
+t/crypt_bad_check.t
+t/crypt_check.t
 generror/ISPGuide-Codes.asp
 generror/errortable.html
 generror/errortable2hash.pl
diff --git a/OpenECHO.pm b/OpenECHO.pm
index a9eed3a..682c488 100644
--- a/OpenECHO.pm
+++ b/OpenECHO.pm
@@ -127,7 +127,7 @@ sub map_fields {
                  #'void'                 => 'VOID',
                );
       }
-    } elsif ( $content{'type'} =~ /^check$/i ) {
+    } elsif ( $content{'type'} =~ /^e?check$/i ) {
       %map = ( 'normal authorization' => 'DD',
                'authorization only'   => 'DV',
                'credit'               => 'DC',
diff --git a/t/bad_check.t b/t/bad_check.t
index 6b44591..4102922 100644
--- a/t/bad_check.t
+++ b/t/bad_check.t
@@ -10,7 +10,7 @@ use Business::OnlinePayment;
 # checks are broken it seems
 my $ctx = new Business::OnlinePayment("OpenECHO");
 $ctx->content(
-    type           => 'CHECK',
+    type           => 'ECHECK',
     'login'        => '123>4685706',
     'password'     => '09437869',
     action         => 'Normal Authorization',
diff --git a/t/check.t b/t/check.t
index c68c442..f8c83a3 100644
--- a/t/check.t
+++ b/t/check.t
@@ -10,7 +10,7 @@ use Business::OnlinePayment;
 # checks are broken it seems
 my $ctx = new Business::OnlinePayment("OpenECHO");
 $ctx->content(
-    type           => 'CHECK',
+    type           => 'ECHECK',
     'login'        => '123>4685706',
     'password'     => '09437869',
     action         => 'Normal Authorization',
diff --git a/t/crypt_bad_check.t b/t/crypt_bad_check.t
index 4903b48..f47f53e 100644
--- a/t/crypt_bad_check.t
+++ b/t/crypt_bad_check.t
@@ -14,7 +14,7 @@ use Business::OnlinePayment;
 # checks are broken it seems
 my $ctx = new Business::OnlinePayment("OpenECHO");
 $ctx->content(
-    type           => 'CHECK',
+    type           => 'ECHECK',
     'login'        => '123>4685706',
     'password'     => '09437869',
     action         => 'Normal Authorization',
diff --git a/t/crypt_check.t b/t/crypt_check.t
index 7d01a85..d0c09ab 100644
--- a/t/crypt_check.t
+++ b/t/crypt_check.t
@@ -14,7 +14,7 @@ use Business::OnlinePayment;
 # checks are broken it seems
 my $ctx = new Business::OnlinePayment("OpenECHO");
 $ctx->content(
-    type           => 'CHECK',
+    type           => 'ECHECK',
     'login'        => '123>4685706',
     'password'     => '09437869',
     action         => 'Normal Authorization',
-- 
2.11.0