<% include('/search/elements/search.html', 'title' => $close ? "Batch $batchnum closed." : "Invoice Batch $batchnum", 'menubar' => ['All batches' => $p.'search/bill_batch.cgi'], 'name' => 'invoices', 'query' => { 'table' => 'cust_bill_batch', 'select' => join(', ', 'cust_bill.*', FS::UI::Web::cust_sql_fields(), 'cust_main.custnum AS cust_main_custnum', ), 'hashref' => { }, 'addl_from' => 'LEFT JOIN cust_bill USING ( invnum ) '. FS::UI::Web::join_cust_main('cust_bill'), 'extra_sql' => " WHERE batchnum = $batchnum", }, 'count_query' => "SELECT COUNT(*) FROM cust_bill_batch WHERE batchnum = $batchnum", 'html_init' => $html_init, 'header' => [ 'Invoice #', 'Amount', 'Date', 'Customer', ], 'fields' => [ sub { shift->cust_bill->display_invnum }, sub { sprintf($money_char.'%.2f', shift->cust_bill->charged ) }, sub { time2str('%b %d %Y', shift->cust_bill->_date ) }, sub { shift->cust_bill->cust_main->name }, ], 'align' => 'rrll', 'links' => [ ($link) x 3, $clink, ], 'really_disable_download' => 1, ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('View invoices'); my $conf = new FS::Conf; my $batch; my $batchnum = $cgi->param('batchnum'); $batch = FS::bill_batch->by_key($batchnum); die "Batch '$batchnum' not found!\n" if !$batch; my $close = $cgi->param('close'); $batch->close if $close; my $html_init = qq!
! . include('/elements/progress-init.html', 'OneTrueForm', [ 'batchnum' ], $p.'misc/process/bill_batch-print.html', { url => $p.'misc/download-bill_batch.html?'.$batchnum } ) . 'Download this batch

'; if ( $batch->status eq 'O' ) { $cgi->param('close' => 1); $html_init .= 'Close this batch
'; } $html_init .= '
'; my $link = [ "$p/view/cust_bill.cgi?", 'invnum' ]; my $clink = [ "$p/view/cust_main.cgi?", 'custnum' ]; my $money_char = $conf->config('money_char') || '$';