From 9212c895e9f63ac39a7c72265d38363409b49657 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Sat, 6 Jun 2009 01:17:30 +0000
Subject: [PATCH] Added <Authorization> element.

---
 lib/Business/OnlinePayment/WesternACH.pm | 2 ++
 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' },
       },
     },
diff --git a/t/check.t b/t/check.t
index 661c1a7..a81e788 100644
--- 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();
 
-- 
2.11.0