summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2015-12-22 02:58:34 -0600
committerJonathan Prykop <jonathan@freeside.biz>2015-12-22 03:10:35 -0600
commit4119910e78a72125c1da1df2a4b64c9ea927314a (patch)
treea0a69113717a96d4bf1ff3a65853ce577b909ef3
parent7461526f923d4cc9341b5bbebad3bf409b778120 (diff)
RT#38217 Send email when logging conditions are met [added null_right and msgtype]
-rw-r--r--FS/FS/log.pm1
-rw-r--r--httemplate/search/cust_msg.html6
2 files changed, 5 insertions, 2 deletions
diff --git a/FS/FS/log.pm b/FS/FS/log.pm
index b079105..0c23b12 100644
--- a/FS/FS/log.pm
+++ b/FS/FS/log.pm
@@ -110,6 +110,7 @@ sub insert {
next;
}
my $emailerror = $msg_template->send(
+ 'msgtype' => 'admin',
'to' => $log_email->to_addr,
'substitutions' => {
'loglevel' => $FS::Log::LEVELS[$self->level], # which has hopefully been loaded...
diff --git a/httemplate/search/cust_msg.html b/httemplate/search/cust_msg.html
index e9aece2..2bfbd7c 100644
--- a/httemplate/search/cust_msg.html
+++ b/httemplate/search/cust_msg.html
@@ -59,8 +59,10 @@ my $conf = new FS::Conf;
my $title = 'Outgoing Message Log';
#here is the agent virtualization
-my $agentnums_sql =
- $FS::CurrentUser::CurrentUser->agentnums_sql( 'table' => 'cust_main' );
+my $agentnums_sql = $FS::CurrentUser::CurrentUser->agentnums_sql(
+ 'table' => 'cust_main',
+ 'null_right' => [ 'View system logs', 'Configuration' ],
+);
my @where = ( $agentnums_sql );