From e32344effc97e76f9ee26fbf4ee206bfaee47a54 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 12 Nov 2012 23:54:00 -0800
Subject: [PATCH] don't send countries other than US/CA/GB/UK to paymentech,
 RT#20222

---
 FS/FS/pay_batch/paymentech.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/FS/FS/pay_batch/paymentech.pm b/FS/FS/pay_batch/paymentech.pm
index 133f8f1ce..c687cc8e2 100644
--- a/FS/FS/pay_batch/paymentech.pm
+++ b/FS/FS/pay_batch/paymentech.pm
@@ -72,7 +72,9 @@ my %paytype = (
   'personal savings'  => 'S',
   'business checking' => 'X',
   'business savings'  => 'X',
-  );
+);
+
+my %paymentech_countries = map { $_ => 1 } qw( US CA GB UK );
 
 %export_info = (
   init  => sub {
@@ -121,7 +123,10 @@ my %paytype = (
         avsCity         => substr($_->city, 0, 20),
         avsState        => $_->state,
         avsName        => substr($_->first . ' ' . $_->last, 0, 30),
-        avsCountryCode => $_->country,
+        avsCountryCode => ( $paymentech_countries{ $_->country }
+                              ? $_->country
+                              : ''
+                          ),
         orderID        => $_->paybatchnum,
         amount         => $_->amount * 100,
         );
-- 
2.20.1