diff options
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin.pm | 20 |
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 }; + } } } |