<% my $param = $cgi->Vars; #my $paybatch = $param->{'paybatch'}; my $paybatch = time2str('webbatch-%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time); my @cust_pay = (); #my $row = 0; #while ( exists($param->{"custnum$row"}) ) { for ( my $row = 0; exists($param->{"custnum$row"}); $row++ ) { push @cust_pay, new FS::cust_pay { 'custnum' => $param->{"custnum$row"}, 'paid' => $param->{"paid$row"}, 'payby' => 'BILL', 'payinfo' => $param->{"payinfo$row"}, 'paybatch' => $paybatch, } if $param->{"custnum$row"} || $param->{"paid$row"} || $param->{"payinfo$row"}; #$row++; } my @errors = FS::cust_pay->batch_insert(@cust_pay); my $num_errors = scalar(grep $_, @errors); if ( $num_errors ) { $cgi->param('error', "$num_errors error". ($num_errors>1 ? 's' : '') ); my $erow=0; $cgi->param('error'. $erow++, shift @errors) while @errors; %><%= $cgi->redirect($p.'batch-cust_pay.html?'. $cgi->query_string) %><% } else { %><%= $cgi->redirect(popurl(3). "search/cust_pay.cgi?magic=paybatch;paybatch=$paybatch") %> <% } %>