Fix reference issue in can_moderate.

Arguments in TT functions are passed as a hashref.
sagepe · Sep 6, 2018 · 4bd649c · 4bd649c
1 parent abcb1f8
commit 4bd649c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
@@ -331,7 +331,7 @@ sub split_name {
 }
 
 sub can_moderate {
- my ($self, $object, %perms) = @_;
+ my ($self, $object, $perms) = @_;
 
  my ($type, $ids);
  if ($object->isa("FixMyStreet::DB::Result::Comment")) {
@@ -342,7 +342,7 @@ sub can_moderate {
  $ids = $object->bodies_str_ids;
  }
 
- my $staff_perm = exists($perms{staff}) ? $perms{staff} : $self->has_permission_to(moderate => $ids);
+ my $staff_perm = exists($perms->{staff}) ? $perms->{staff} : $self->has_permission_to(moderate => $ids);
  return 1 if $staff_perm;
 
  # See if the cobrand wants to allow it in some circumstance