diff options
Diffstat (limited to 'httemplate/misc')
| -rw-r--r-- | httemplate/misc/download-bill_batch.html | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/httemplate/misc/download-bill_batch.html b/httemplate/misc/download-bill_batch.html new file mode 100644 index 000000000..70e3003ce --- /dev/null +++ b/httemplate/misc/download-bill_batch.html @@ -0,0 +1,21 @@ +<%init> +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); +my ($batchnum) = $cgi->keywords; +$batchnum =~ /^\d+$/ or die "invalid batchnum '$batchnum'"; +my $batch = FS::bill_batch->by_key($batchnum) + or die "Batch $batchnum not found"; + +# send the batch +my $content = $batch->pdf; +$m->clear_buffer; +$r->content_type('application/pdf'); +$r->headers_out->add( 'Content-Disposition' => + 'attachment;filename="invoice_batch_'.$batchnum.'.pdf"'); +$m->print($content); + +#$batch->pdf(''); +#my $error = $batch->replace; +# warn "error deleting cached PDF: '$error'\n" if $error; +#} +</%init> |