2 <P STYLE="color: red"><% $error %></P>
4 <H1>Log email condition deleted</H1>
6 window.top.location.reload();
12 unless $FS::CurrentUser::CurrentUser->access_right([ 'View system logs', 'Configuration' ]);
14 my $logemailnum = $cgi->param('logemailnum');
15 $logemailnum =~ /^\d+$/ or die "bad logemailnum '$logemailnum'";
16 my $log_email = FS::log_email->by_key($logemailnum)
17 or die "logemailnum '$logemailnum' not found";
18 my $error = $log_email->delete;