From a81ee0769c0943f93fe32eba60e6687b1063f958 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 25 Mar 2006 10:01:42 +0000 Subject: [PATCH] use '00000000' for check # if one is missing then. what else to do for recurring transactions? --- Changes | 3 ++- OpenECHO.pm | 4 ++-- t/check.t | 8 +++++++- 3 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index 0f4b029..cb8c57e 100644 --- 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 --- a/OpenECHO.pm +++ b/OpenECHO.pm @@ -249,8 +249,8 @@ sub submit { if ( $self->transaction_type =~ /^D[DVCH]$/ ) { #echeck #check number kludge... "periodic bill payments" don't have check #s! - $self->{_content}{ec_serial_number} = 'RECURRIN' - #$self->{_content}{ec_serial_number} = '00000000' + #$self->{_content}{ec_serial_number} = 'RECURRIN' + $self->{_content}{ec_serial_number} = '00000000' if ! length($self->{_content}{ec_serial_number}) && $self->{_content}{ec_payment_type} =~ /^(PPD)?$/i; diff --git a/t/check.t b/t/check.t index 21d9c77..74ee42b 100644 --- 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', -- 2.11.0