httemplate/misc/susp_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->suspend;
  11 &eidiot($error) if $error;
  12
  13 print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum'));
  14
  15 %>