X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fdelete-log_email.html;h=98b25e4c1bf9aaf3981f3d3a399b3438f7e70c67;hp=cc17b15a0c4ca5383fa68a62d0684ce9fc258cb1;hb=79c8be3bd0c5db42794b36bf5b5dd25addba67cb;hpb=80c2d997c5c983344c530ecbb46f94f1c299b35f diff --git a/httemplate/misc/delete-log_email.html b/httemplate/misc/delete-log_email.html index cc17b15a0..98b25e4c1 100644 --- a/httemplate/misc/delete-log_email.html +++ b/httemplate/misc/delete-log_email.html @@ -1,9 +1,15 @@ +<% include("/elements/header.html", 'Log email condition configuration') %> +

+ System Log + | Log E-Mail Condition +

+ % if ($error) {

<% $error %>

% } else {

Log email condition deleted

% } @@ -11,10 +17,17 @@ window.top.location.reload(); die "access denied" unless $FS::CurrentUser::CurrentUser->access_right([ 'View system logs', 'Configuration' ]); +my $error; my $logemailnum = $cgi->param('logemailnum'); -$logemailnum =~ /^\d+$/ or die "bad logemailnum '$logemailnum'"; -my $log_email = FS::log_email->by_key($logemailnum) - or die "logemailnum '$logemailnum' not found"; -my $error = $log_email->delete; - +if ( $logemailnum =~ /^\d+$/ ) { + if ( my $log_email = FS::log_email->by_key($logemailnum) ) { + $error = $log_email->delete; + } else { + $error = "logemailnum '$logemailnum' not found"; + } +} else { + $error = "bad logemailnum '$logemailnum'"; +} + +