diff options
| -rw-r--r-- | Changes | 1 | ||||
| -rw-r--r-- | MANIFEST | 3 | ||||
| -rw-r--r-- | OpenECHO.pm | 2 | ||||
| -rw-r--r-- | t/bad_check.t | 2 | ||||
| -rw-r--r-- | t/check.t | 2 | ||||
| -rw-r--r-- | t/crypt_bad_check.t | 2 | ||||
| -rw-r--r-- | t/crypt_check.t | 2 |
7 files changed, 9 insertions, 5 deletions
@@ -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 @@ -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', @@ -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', |