Fix admin user search for non-superusers

1 files changed, 11 insertions, 9 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index a312a4399..0a7b8d049 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -1030,15 +1030,17 @@ sub users: Path('users') : Args(0) {
         my %email2user = map { $_->email => $_ } @users;
         $c->stash->{users} = [ @users ];
 
-        my $emails = $c->model('DB::Abuse')->search(
-            { email => { ilike => $isearch } }
-        ) if $c->user->is_superuser;
-        foreach my $email ($emails->all) {
-            # Slight abuse of the boolean flagged value
-            if ($email2user{$email->email}) {
-                $email2user{$email->email}->flagged( 2 );
-            } else {
-                push @{$c->stash->{users}}, { email => $email->email, flagged => 2 };
+        if ( $c->user->is_superuser ) {
+            my $emails = $c->model('DB::Abuse')->search(
+                { email => { ilike => $isearch } }
+            );
+            foreach my $email ($emails->all) {
+                # Slight abuse of the boolean flagged value
+                if ($email2user{$email->email}) {
+                    $email2user{$email->email}->flagged( 2 );
+                } else {
+                    push @{$c->stash->{users}}, { email => $email->email, flagged => 2 };
+                }
             }
         }