From 4bd649c5179eeb56f519e52e572489844d8221d2 Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Thu, 6 Sep 2018 22:38:14 +0100
Subject: Fix reference issue in can_moderate.

Arguments in TT functions are passed as a hashref.
---
 perllib/FixMyStreet/DB/Result/User.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
index 5afd9d89c..05e0b620a 100644
--- 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
-- 
cgit v1.2.3