Added <Authorization> element.

diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm
index 52090d9..0173601 100644 (file)
--- 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' },
       },
     },

diff --git a/t/check.t b/t/check.t
index 661c1a7..a81e788 100644 (file)
--- a/t/check.t
+++ b/t/check.t
@@ -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();