summaryrefslogtreecommitdiff
path: root/httemplate/misc/delete-log_email.html
diff options
context:
space:
mode:
authorMitch Jackson <mitch@freeside.biz>2018-10-23 00:51:51 -0400
committerMitch Jackson <mitch@freeside.biz>2018-10-23 00:51:51 -0400
commit3a62fa3cc84424ebf528ee2f67b64ea00b363921 (patch)
treee5c5d362ce033099c8f6166c70574af58f11baff /httemplate/misc/delete-log_email.html
parent3e6f3fa1610939bbc35a181966e38ec9d97940f7 (diff)
RT# 38217 Fix JS bug when creating an email notice
Diffstat (limited to 'httemplate/misc/delete-log_email.html')
-rw-r--r--httemplate/misc/delete-log_email.html14
1 files changed, 8 insertions, 6 deletions
diff --git a/httemplate/misc/delete-log_email.html b/httemplate/misc/delete-log_email.html
index cc17b15a0..5a6bdc083 100644
--- a/httemplate/misc/delete-log_email.html
+++ b/httemplate/misc/delete-log_email.html
@@ -3,7 +3,7 @@
% } else {
<H1>Log email condition deleted</H1>
<SCRIPT>
-window.top.location.reload();
+window.top.location = "<% $fsurl %>browse/log_email.html";
</SCRIPT>
% }
@@ -11,10 +11,12 @@ window.top.location.reload();
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right([ 'View system logs', 'Configuration' ]);
-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;
+ my $error;
+ my $logemailnum = $cgi->param('logemailnum');
+ if ( $logemailnum && $logemailnum =~ /^\d+$/ ) {
+ if ( my $log_email = FS::log_email->by_key( $logemailnum ) ) {
+ $error = $log_email->delete;
+ }
+ }
</%init>