use '00000000' for check # if one is missing then. what else to do for recurring...

diff --git a/Changes b/Changes
index 0f4b029..cb8c57e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -11,7 +11,8 @@
        - update with new test account
        - s/CHECK/ECHECK/, DOH
        - move "payee" to a new() option, that makes more sense?
-       - use 'RECURRIN' for check # if one is missing...?
+       - use '00000000' for check # if one is missing then.  what else to do
+         for recurring transactions?
 
 0.02  Mon Sep 13 17:14:29 2004
        - update test account with new PIN

diff --git a/OpenECHO.pm b/OpenECHO.pm
index 68a4400..96d39ea 100644 (file)
--- a/OpenECHO.pm
+++ b/OpenECHO.pm
@@ -249,8 +249,8 @@ sub submit {
     if ( $self->transaction_type =~ /^D[DVCH]$/ ) { #echeck\r
 \r
       #check number kludge... "periodic bill payments" don't have check #s!\r
-      $self->{_content}{ec_serial_number} = 'RECURRIN'\r
-      #$self->{_content}{ec_serial_number} = '00000000'\r
+      #$self->{_content}{ec_serial_number} = 'RECURRIN'\r
+      $self->{_content}{ec_serial_number} = '00000000'\r
         if ! length($self->{_content}{ec_serial_number})\r
         && $self->{_content}{ec_payment_type} =~ /^(PPD)?$/i;\r
 \r

diff --git a/t/check.t b/t/check.t
index 21d9c77..74ee42b 100644 (file)
--- a/t/check.t
+++ b/t/check.t
@@ -7,10 +7,16 @@ if ( $@ ) {
 
 use Business::OnlinePayment;
 
-# checks are broken it seems
 my $ctx = new Business::OnlinePayment( "OpenECHO", 
   'payee' => 'Tofu Heavy Enterprises, GmbH',
 );
+
+$Business::OnlinePayment::HTTPS::DEBUG = 1;
+$Business::OnlinePayment::HTTPS::DEBUG = 1;
+$Business::OnlinePayment::OpenECHO::DEBUG = 1;
+$Business::OnlinePayment::OpenECHO::DEBUG = 1;
+
+# checks are broken it seems?
 $ctx->content(
     type           => 'ECHECK',
     'login'        => '123>4685706',