httemplate/misc/unvoid-cust_bill_void.html

   1 %if ( $error ) {
   2 %  errorpage($error);
   3 %} else {
   4 %   my $show = $curuser->default_customer_view =~ /^(jumbo|payment_history)$/
   5 %                ? ''
   6 %                : ';show=payment_history';
   7 <% $cgi->redirect($p. "view/cust_main.cgi?custnum=$custnum$show" ) %>
   8 %}
   9 <%init>
  10
  11 my $curuser = $FS::CurrentUser::CurrentUser;
  12
  13 die "access denied"
  14   unless $curuser->access_right('Unvoid invoices');
  15
  16 #untaint invnum
  17 $cgi->param('invnum') =~ /^(\d+)$/ || die "Illegal invnum";
  18 my $invnum = $1;
  19
  20 my $cust_bill_void = qsearchs('cust_bill_void', { 'invnum' => $invnum } );
  21 my $custnum = $cust_bill_void->custnum;
  22
  23 my $error = $cust_bill_void->unvoid;
  24
  25 </%init>