blob: 058a2251ac025c038995d396c591fd900d3ea42d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
% die "access denied"
% unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch');
%
% 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' : '').
% ' - Batch not processed, correct and resubmit'
% );
%
% 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") %>
% }
|
