From f78217427dce10b328e4140c6e6c796aa212c599 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 30 Jun 2003 18:56:05 +0000
Subject: [PATCH] pass additional fields to ACH processors (Authorize.Net
 should work now)

---
 FS/FS/cust_main.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index b45540095..ea6f032f4 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1556,6 +1556,10 @@ sub realtime_bop {
     ( $content{account_number}, $content{routing_code} ) =
       split('@', $self->payinfo);
     $content{bank_name} = $self->payname;
+    $content{account_type} = 'CHECKING';
+    $content{account_name} = $payname;
+    $content{customer_org} = $self->company ? 'B' : 'I';
+    $content{customer_ssn} = $self->ss;
   } elsif ( $method eq 'LEC' ) {
     $content{phone} = $self->payinfo;
   }
-- 
2.11.0