% if ( $error ) { % errorpage($error); % } else { <& /elements/header-popup.html, 'Rate deleted' &> % } <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my ($query) = $cgi->keywords; $query =~ /^(\d+)$/ or die "Illegal ratedetailnum"; my $rate_detail = FS::rate_detail->by_key($1); my $error = $rate_detail->delete;