Add "View email logs" ACL - "View customers of all agents" was definitely not the...
authorivan <ivan>
Fri, 9 Dec 2011 01:02:03 +0000 (01:02 +0000)
committerivan <ivan>
Fri, 9 Dec 2011 01:02:03 +0000 (01:02 +0000)
FS/FS/AccessRight.pm
httemplate/elements/menu.html
httemplate/search/cust_msg.html
httemplate/view/cust_msg.html

index 7351c6d..1bfae03 100644 (file)
@@ -264,6 +264,7 @@ tie my %rights, 'Tie::IxHash',
     'Receivables report',
     'Financial reports',
     { rightname=> 'List inventory', global=>1 },
+    { rightname=>'View email logs', global=>1 },
 
     #{ rightname => 'List customers of all agents', global=>1 },
   ],
index 48270da..df97a5e 100644 (file)
@@ -413,7 +413,7 @@ $tools_menu{'Time Queue'} =  [ $fsurl.'search/report_timeworked.html', 'View pen
 $tools_menu{'Attachments'} = [ $fsurl.'browse/cust_attachment.html', 'View customer attachments' ]
   if !$conf->config('disable_cust_attachment') and $curuser->access_right('View attachments') and $curuser->access_right('Browse attachments');
 $tools_menu{'Outgoing messages'} = [ $fsurl.'search/cust_msg.html', 'View outgoing message log' ] #shouldn't this be in the reports menu?
-  if $curuser->access_right('Configuration');
+  if $curuser->access_right('View email logs');
 $tools_menu{'Importing'} =  [ \%tools_importing, 'Import tools' ]
   if $curuser->access_right('Import');
 $tools_menu{'Exporting'} =  [ \%tools_exporting, 'Export tools' ]
index 64fae30..f71a866 100644 (file)
@@ -41,7 +41,7 @@
 <%init>
 #hmm...
 die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('View customers of all agents');
+  unless $FS::CurrentUser::CurrentUser->access_right('View email logs');
 
 my $conf = new FS::Conf;
 
index a584610..d5ec036 100755 (executable)
@@ -38,7 +38,7 @@ readonly=1 cols=80 rows=20>
 <%init>
 
 my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied" if !$curuser->access_right('View customers of all agents');
+die "access denied" if !$curuser->access_right('View email logs');
 
 my ($custmsgnum) = $cgi->keywords;
 $custmsgnum =~ /^(\d+)$/ or die "illegal custmsgnum";