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;
27 % print $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum");