X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=621f3d14427549d4f765aa66b8b2e4c192e0a099;hp=8058357a5ca2f015f08234d93a555e7956dc8f18;hb=057ae504915d912bc60df87c9914e11752edf680;hpb=f2166c28623ef38fe7db2069fce6cc16be865f11

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 8058357a5..621f3d144 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -2790,7 +2790,7 @@ sub batch_card {
   } );
 
   foreach (qw( address1 address2 city state zip country latitude longitude
-               payby payinfo paydate payname ))
+               payby payinfo paydate payname paycode paytype ))
   {
     $options{$_} = '' unless exists($options{$_});
   }
@@ -2822,6 +2822,7 @@ sub batch_card {
     'exp'      => $options{paydate}  || $self->paydate,
     'payname'  => $options{payname}  || $self->payname,
     'amount'   => $amount,                         # consolidating
+    'paycode'  => $options{paycode}  || '',
   } );
   
   $cust_pay_batch->paybatchnum($old_cust_pay_batch->paybatchnum)