Admin restrict report/user sections appropriately.

1 files changed, 10 insertions, 6 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm
index 68e8f957c..8e170458a 100644
--- a/perllib/FixMyStreet/Cobrand/Default.pm
+++ b/perllib/FixMyStreet/Cobrand/Default.pm
@@ -645,15 +645,9 @@ sub admin_pages {
     my $pages = {
          'summary' => [_('Summary'), 0],
          'bodies' => [_('Bodies'), 1],
-         'reports' => [_('Reports'), 2],
          'timeline' => [_('Timeline'), 5],
-         'users' => [_('Users'), 6],
          'stats'  => [_('Stats'), 8],
-         'user_edit' => [undef, undef],
          'body' => [undef, undef],
-         'report_edit' => [undef, undef],
-         'update_edit' => [undef, undef],
-         'abuse_edit'  => [undef, undef],
     };
 
     # There are some pages that only super users can see
@@ -662,6 +656,12 @@ sub admin_pages {
         $pages->{config} = [ _('Configuration'), 9];
     };
     # And some that need special permissions
+    if ( $user->is_superuser || $user->has_body_permission_to('report_edit') ) {
+        $pages->{reports} = [ _('Reports'), 2 ];
+        $pages->{report_edit} = [ undef, undef ];
+        $pages->{update_edit} = [ undef, undef ];
+        $pages->{abuse_edit} = [ undef, undef ];
+    }
     if ( $user->is_superuser || $user->has_body_permission_to('template_edit') ) {
         $pages->{templates} = [ _('Templates'), 3 ];
         $pages->{template_edit} = [ undef, undef ];
@@ -671,6 +671,10 @@ sub admin_pages {
         $pages->{responsepriority_edit} = [ undef, undef ];
     };
 
+    if ( $user->is_superuser || $user->has_body_permission_to('user_edit') ) {
+        $pages->{users} = [ _('Users'), 6 ];
+        $pages->{user_edit} = [ undef, undef ];
+    }
 
     return $pages;
 }