diff options
Diffstat (limited to 'httemplate/misc/download-batch.cgi')
-rw-r--r-- | httemplate/misc/download-batch.cgi | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/httemplate/misc/download-batch.cgi b/httemplate/misc/download-batch.cgi index f3a31eb3b..c4bc37e93 100644 --- a/httemplate/misc/download-batch.cgi +++ b/httemplate/misc/download-batch.cgi @@ -1,4 +1,4 @@ -<% $pay_batch->export_batch(%opt) %><%init> +<% $exporttext %><%init> #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes http_header('Content-Type' => 'text/plain' ); # not necessarily correct... @@ -23,4 +23,15 @@ elsif ( $cgi->param('format') =~ /^([\w\- ]+)$/ ) { my $pay_batch = qsearchs('pay_batch', { batchnum => $batchnum } ); die "Batch not found: '$batchnum'" if !$pay_batch; +my $exporttext = $pay_batch->export_batch(%opt); +unless ($exporttext) { + http_header('Content-Type' => 'text/html' ); + $exporttext = <<EOF; +<SCRIPT> +alert('Batch was empty, and has been resolved'); +window.top.location.href = '${p}search/pay_batch.cgi?magic=_date;open=1;intransit=1;resolved=1'; +</SCRIPT> +EOF +} + </%init> |