From 4800ea73170e55c621ab9b6c1625c429799cafbf Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 8 Nov 2003 12:59:17 +0000
Subject: [PATCH] pass paybatch field to realtime_bop so we can prevent
 double-charges

---
 FS/FS/ClientAPI/MyAccount.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 8d6f6e55a..6bb664dfe 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -203,7 +203,7 @@ sub process_payment {
   my $error = $cust_main->realtime_bop( 'CC', $p->{'amount'}, quiet=>1,
     'paydate' => $p->{'year'}. '-'. $p->{'month'}. '-01',
     map { $_ => $p->{$_} }
-      qw( payname address1 address2 city state zip payinfo )
+      qw( payname address1 address2 city state zip payinfo paybatch )
   );
   return { 'error' => $error } if $error;
 
-- 
2.11.0