diff options
Diffstat (limited to 'httemplate/misc/process/pay_batch-approve.cgi')
| -rw-r--r-- | httemplate/misc/process/pay_batch-approve.cgi | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/httemplate/misc/process/pay_batch-approve.cgi b/httemplate/misc/process/pay_batch-approve.cgi index f857e2318..ff5f12b38 100644 --- a/httemplate/misc/process/pay_batch-approve.cgi +++ b/httemplate/misc/process/pay_batch-approve.cgi @@ -7,10 +7,11 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Process batches'); my $batchnum = $cgi->param('batchnum'); -# make a record in the paybatch of who did this -my $paybatch = 'manual-'.$FS::CurrentUser::CurrentUser->username. - '-' . time2str('%Y/%m/%d-%T'. "-$$-". rand() * 2**32, time); +my $paybatch = $batchnum; +my $usernum = $FS::CurrentUser::CurrentUser->usernum; my $pay_batch = qsearchs('pay_batch', { 'batchnum' => $batchnum }) or die "batchnum '$batchnum' not found"; -my $error = $pay_batch->manual_approve('paybatch' => $paybatch); +my $error = $pay_batch->manual_approve( + 'paybatch' => $paybatch, 'usernum' => $usernum +); </%init> |