From: jeff <jeff>
Date: Wed, 10 Jan 2007 00:41:36 +0000 (+0000)
Subject: permit batch redownloads
X-Git-Tag: TRIXBOX_2_6~772
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a3e2c44624aa50e408046e77e6b1cd5d9c20b4c2

permit batch redownloads
---

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;