% 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 ) '. 'LEFT JOIN cust_main USING ( custnum )', '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!