6 my($query) = $cgi->keywords;
10 #my $svc_acct = qsearchs('svc_acct',{'svcnum'=>$svcnum});
11 #die "Unknown svcnum!" unless $svc_acct;
13 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
14 die "Unknown svcnum!" unless $cust_svc;
15 my $cust_pkg = $cust_svc->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.');
23 my $error = $cust_svc->cancel;
31 print $cgi->redirect(popurl(2));