From 02a97cd04f67078f4a238f5968b00bca5fc68dc0 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 23 Jun 2009 05:25:34 +0000
Subject: [PATCH] Allowed nonessential fields to be left undefined

---
 lib/Business/OnlinePayment/WesternACH.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/lib/Business/OnlinePayment/WesternACH.pm b/lib/Business/OnlinePayment/WesternACH.pm
index e18a122..94ba800 100644
--- a/lib/Business/OnlinePayment/WesternACH.pm
+++ b/lib/Business/OnlinePayment/WesternACH.pm
@@ -22,6 +22,20 @@ my $defaults = {
   schedule     => 'live',
 };
 
+my $required = { map { $_ => 1 } ( qw(
+  login
+  password
+  command
+  amount
+  tender_type
+  _full_name
+  routing_code
+  check_number
+  _check_type 
+))};
+
+
+
 # Structure of the XML request document
 # Right sides of the hash entries are Business::OnlinePayment 
 # field names.  Those that start with _ are local method names.
@@ -144,7 +158,11 @@ sub build {
     elsif(exists($defaults->{$val})) {
       $data->{$k} = $defaults->{$val};
     }
-    # 6. Fail.
+    # 6. If the value is not required, use an empty string.
+    elsif(! $required->{$val}) {
+      $data->{$k} = '';
+    }
+    # 7. Fail.
     else {
       croak "Missing request field: '$val'";
     }
-- 
2.11.0