httemplate/misc/cancel_pkg.cgi

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