%my $payby = $1;
%my %payby2fields = (
% 'CARD' => [ qw( address1 address2 city state zip ) ],
-% 'CHEK' => [ qw( ss ) ],
+% 'CHEK' => [ qw( ss paytype paystate stateid stateid_state ) ],
%);
%my %type = ( 'CARD' => 'credit card',
% 'CHEK' => 'electronic check (ACH)',
% die "unknown payby $payby";
%}
%
-%my $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
-% 'quiet' => 1,
-% 'manual' => 1,
-% 'payinfo' => $payinfo,
-% 'paydate' => "$year-$month-01",
-% 'payname' => $payname,
-% 'paybatch' => $paybatch,
-% 'paycvv' => $paycvv,
-% map { $_ => $cgi->param($_) } @{$payby2fields{$payby}}
-%);
-%eidiot($error) if $error;
-%
-%$cust_main->apply_payments;
+%my $error = '';
+%if ($cgi->param('batch')) {
+% $error = $cust_main->batch_card(
+% 'payby' => $payby,
+% 'amount' => $amount,
+% 'payinfo' => $payinfo,
+% 'paydate' => "$year-$month-01",
+% 'payname' => $payname,
+% map { $_ => $cgi->param($_) }
+% @{$payby2fields{$payby}}
+% );
+% eidiot($error) if $error;
+%}else{
+% $error = $cust_main->realtime_bop( $FS::payby::payby2bop{$payby}, $amount,
+% 'quiet' => 1,
+% 'manual' => 1,
+% 'payinfo' => $payinfo,
+% 'paydate' => "$year-$month-01",
+% 'payname' => $payname,
+% 'paybatch' => $paybatch,
+% 'paycvv' => $paycvv,
+% map { $_ => $cgi->param($_) } @{$payby2fields{$payby}}
+% );
+% eidiot($error) if $error;
+%
+% $cust_main->apply_payments;
+%}
%
%if ( $cgi->param('save') ) {
% my $new = new FS::cust_main { $cust_main->hash };