diff options
author | jeff <jeff> | 2007-01-10 00:41:36 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-01-10 00:41:36 +0000 |
commit | a3e2c44624aa50e408046e77e6b1cd5d9c20b4c2 (patch) | |
tree | 63099278b78cb3f57bda31c30a63cef6d7b9c02d | |
parent | 79b683c8240f3f2447b41cdca80d888f0a47521c (diff) |
permit batch redownloads
-rw-r--r-- | httemplate/misc/download-batch.cgi | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi index a1e7b5c44..7e6750c58 100644 --- a/httemplate/misc/download-batch.cgi +++ b/httemplate/misc/download-batch.cgi @@ -24,6 +24,10 @@ %my $dbh = dbh; % %my $pay_batch = qsearchs('pay_batch', {'batchnum'=>$batchnum, 'status'=>'O'} ); +%unless ($pay_batch) { +% $pay_batch = qsearchs('pay_batch', {'batchnum'=>$batchnum, 'status'=>'I'} ) +% if $FS::CurrentUser::CurrentUser->access_right('Reprocess batches'); +%} %die "No pending batch. \n" unless $pay_batch; % %my %batchhash = $pay_batch->hash; |