httemplate/misc/process/void-cust_bill.html

   1 %if ( $error ) {
   2 %  $cgi->param('error', $error);
   3 <% $cgi->redirect(popurl(2). "void-cust_bill.html?". $cgi->query_string ) %>
   4 %} else {
   5 <& /elements/header-popup.html, 'Invoice voided' &>
   6 <SCRIPT TYPE="text/javascript">
   7   topreload();
   8 </SCRIPT>
   9 </BODY></HTML>
  10 %}
  11 <%init>
  12
  13 die "access denied"
  14   unless $FS::CurrentUser::CurrentUser->access_right('Void invoices');
  15
  16 #untaint invnum
  17 $cgi->param('invnum') =~ /^(\d+)$/ || die "Illegal invnum";
  18 my $invnum = $1;
  19
  20 my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum});
  21
  22 my $error = $cust_bill->void( scalar($cgi->param('reason')),
  23                               scalar($cgi->param('reprocess_cdrs')),
  24                             );
  25
  26 </%init>