httemplate/misc/process/void-cust_bill.html

   1 %if ( $error ) {
   2 %  $cgi->param('error', $error);
   3 <% $cgi->redirect(popurl(1). "void-cust_bill.html?". $cgi->query_string ) %>
   4 %} else {
   5 <% $cgi->redirect(popurl(3). "view/cust_main.cgi?". $custnum) %>
   6 %}
   7 <%init>
   8
   9 die "access denied"
  10   unless $FS::CurrentUser::CurrentUser->access_right('Void invoices');
  11
  12 #untaint invnum
  13 $cgi->param('invnum') =~ /^(\d+)$/ || die "Illegal invnum";
  14 my $invnum = $1;
  15
  16 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
  17
  18 my $custnum = $cust_bill->custnum;
  19
  20 my $error = $cust_bill->void( $cgi->param('reason') );
  21
  22 </%init>