s/CHECK/ECHECK/, DOH

diff --git a/Changes b/Changes
index 25e8f10..b8d0000 100644 (file)
--- 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 (file)
--- 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 (file)
--- a/OpenECHO.pm
+++ b/OpenECHO.pm
@@ -127,7 +127,7 @@ sub map_fields {
                  #'void'                 => 'VOID',\r
                );\r
       }\r
-    } elsif ( $content{'type'} =~ /^check$/i ) {\r
+    } elsif ( $content{'type'} =~ /^e?check$/i ) {\r
       %map = ( 'normal authorization' => 'DD',\r
                'authorization only'   => 'DV',\r
                'credit'               => 'DC',\r

diff --git a/t/bad_check.t b/t/bad_check.t
index 6b44591..4102922 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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',