pass paybatch field to realtime_bop so we can prevent double-charges

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index 8d6f6e5..6bb664d 100644 (file)
--- 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;