httemplate/misc/cust_main-cancel.cgi

   1 <%
   2
   3 #untaint custnum
   4 my($query) = $cgi->keywords;
   5 $query =~ /^(\d+)$/ || die "Illegal custnum";
   6 my $custnum = $1;
   7
   8 my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
   9
  10 my @errors = $cust_main->cancel;
  11 eidiot(join(' / ', @errors)) if scalar(@errors);
  12
  13 #print $cgi->redirect($p. "view/cust_main.cgi?". $cust_main->custnum);
  14 print $cgi->redirect($p);
  15
  16 %>