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;
16 my $custnum = $cust_svc->cust_pkg->custnum;
18 my $error = $cust_svc->cancel;
26 print $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum");