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
  28 <!-- mason kludge -->
  29 %
  30 %  &eidiot($error);
  31 %} else {
  32 %  print $cgi->redirect(popurl(2));
  33 %}
  34 %
  35 %
  36