4 % my $show = $curuser->default_customer_view =~ /^(jumbo|payment_history)$/
6 % : ';show=payment_history';
7 <% $cgi->redirect($p. "view/cust_main.cgi?custnum=$custnum$show" ) %>
11 my $curuser = $FS::CurrentUser::CurrentUser;
14 unless $curuser->access_right('Unvoid invoices');
17 $cgi->param('invnum') =~ /^(\d+)$/ || die "Illegal invnum";
20 my $cust_bill_void = qsearchs('cust_bill_void', { 'invnum' => $invnum } );
21 my $custnum = $cust_bill_void->custnum;
23 my $error = $cust_bill_void->unvoid;