starting 0.02

[Business-OnlinePayment-WesternACH.git] / lib / Business / OnlinePayment / WesternACH.pm

diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm
index 52090d9..e18a122 100644 (file)
--- a/lib/Business/OnlinePayment/WesternACH.pm
+++ b/lib/Business/OnlinePayment/WesternACH.pm
@@ -8,7 +8,7 @@ use XML::Simple;
 use vars qw($VERSION @ISA $me $DEBUG);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.01';
+$VERSION = '0.02';
 $me = 'Business::OnlinePayment::WesternACH';
 
 $DEBUG = 0;
@@ -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' },
       },
     },
@@ -264,7 +266,7 @@ The following actions are valid:
 
 =head1 AUTHOR
 
-Mark Wells <mark@freeside.biz> with advice from Ivan Kohler <ivan@freeside.biz>.
+Mark Wells <mark@freeside.biz> with advice from Ivan Kohler <ivan-westernach@freeside.biz>.
 
 =head1 SEE ALSO