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;
32 % print $cgi->redirect(popurl(2));