diff options
| author | mark <mark> | 2011-02-15 23:52:32 +0000 |
|---|---|---|
| committer | mark <mark> | 2011-02-15 23:52:32 +0000 |
| commit | f8b35040badefb02652f875e147ee2b4b2f7c4a9 (patch) | |
| tree | 8190c852e663477e7a551a4630bb8f6cb52d4d4f /httemplate/misc | |
| parent | dc1891ff9a6e6c4b4545fe7f786af6bd0f28b2cf (diff) | |
batch payment revocation, RT#10545
Diffstat (limited to 'httemplate/misc')
| -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> |