diff options
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | OpenECHO.pm | 4 | ||||
| -rw-r--r-- | t/check.t | 8 |
3 files changed, 11 insertions, 4 deletions
@@ -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;
@@ -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', |