httemplate/misc/cancel-unaudited.cgi

   1 <%
   2
   3 my $dbh = dbh;
   4
   5 #untaint svcnum
   6 my($query) = $cgi->keywords;
   7 $query =~ /^(\d+)$/;
   8 my $svcnum = $1;
   9
  10 #my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
  11 #die "Unknown svcnum!" unless $svc_acct;
  12
  13 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  14 die "Unknown svcnum!" unless $cust_svc;
  15 my $cust_pkg = $cust_svc->cust_pkg;
  16 if ( $cust_pkg ) {
  17   &eidiot( 'This account has already been audited.  Cancel the '.
  18            qq!<A HREF="${p}view/cust_main.cgi?!. $cust_pkg->custnum.
  19            '#cust_pkg'. $cust_pkg->pkgnum. '">'.
  20            'package</A> instead.');
  21 }
  22
  23 my $error = $cust_svc->cancel;
  24
  25 if ( $error ) {
  26   %>
  27 <!-- mason kludge -->
  28 <%
  29   &eidiot($error);
  30 } else {
  31   print $cgi->redirect(popurl(2));
  32 }
  33
  34 %>