From a3e2c44624aa50e408046e77e6b1cd5d9c20b4c2 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 10 Jan 2007 00:41:36 +0000
Subject: [PATCH] permit batch redownloads

---
 httemplate/misc/download-batch.cgi | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
2.11.0