diff options
-rw-r--r-- | lib/Business/OnlinePayment/WesternACH.pm | 2 | ||||
-rw-r--r-- | t/check.t | 5 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm index 52090d9..0173601 100644 --- a/lib/Business/OnlinePayment/WesternACH.pm +++ b/lib/Business/OnlinePayment/WesternACH.pm @@ -19,6 +19,7 @@ my $defaults = { sec_code => 'WEB', tender_type => 'check', check_number => 9999, + schedule => 'live', }; # Structure of the XML request document @@ -51,6 +52,7 @@ TransactionRequest => { type => '_check_type', verification => 'check_ver', }, + Authorization => { schedule => 'schedule' }, SECCode => { value => 'sec_code' }, }, }, @@ -15,7 +15,7 @@ $tx->content( password => $password, action => 'Normal Authorization', description => 'Business::OnlinePayment checking test', - amount => '40.18', + amount => '10.00', invoice_number => '10999', customer_id => 'nobody', first_name => 'John', @@ -25,8 +25,9 @@ $tx->content( state => 'CA', zip => '95824', account_number => '100012345678', - routing_code => '111000025', + routing_code => '307070005', account_type => 'Checking', + check_number => '1277' ); $tx->submit(); |