<& elements/search.html, 'title' => $title, 'name_singular' => 'tax adjustment', 'query' => $query, 'count_query' => $count_query, 'header' => [ 'Tax', 'Amount', 'Comment', 'Invoice' ], 'fields' => [ 'taxname', sub { $money_char. shift->amount }, 'comment', sub { my $l = shift->cust_bill_pkg; $l ? '#'.$l->invnum : ''; }, ], 'links' => [ '', '', '', $ilink ], &> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Add customer tax adjustment'); my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my $count_query = 'SELECT COUNT(*) FROM cust_tax_adjustment'; my $hashref = {}; my $custnum = ''; my $cust_main = ''; if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { $custnum = $1; $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); $hashref->{'custnum'} = $custnum; $count_query .= " WHERE custnum = $custnum "; } my $title = 'Tax adjustments'; $title .= ' for '. $cust_main->name if $cust_main; my $query = { 'table' => 'cust_tax_adjustment', 'hashref' => $hashref, }; my $ilink = [ $p.'view/cust_bill.cgi?', sub { my $l = shift->cust_bill_pkg; $l ? $l->invnum : 'EXCEPTION'; } ]; #XXX would be nice to list customer fields on the report too, if we ever need # to link to here without a custnum (i'm sure we will, eventually...)