4 %my($query) = $cgi->keywords;
5 %$query =~ /^(\d+)$/ || die "Illegal recnum";
8 %my $domain_record = qsearchs('domain_record',{'recnum'=>$recnum});
10 %my $error = $domain_record->delete;
11 %eidiot($error) if $error;
13 %print $cgi->redirect($p. "view/svc_domain.cgi?". $domain_record->svcnum);