1 files changed, 8 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm
index 65dd1dab1..7d1785c4b 100644
--- a/perllib/FixMyStreet/DB/Result/User.pm
+++ b/perllib/FixMyStreet/DB/Result/User.pm
@@ -243,6 +243,14 @@ sub has_permission_to {
     return $permission ? 1 : undef;
 }
 
+sub contributing_as {
+    my ($self, $other, $c, $bodies) = @_;
+    $bodies = join(',', keys %$bodies) if ref $bodies eq 'HASH';
+    $c->log->error("Bad data $bodies passed to contributing_as") if ref $bodies;
+    my $form_as = $c->get_param('form_as') || '';
+    return 1 if $form_as eq $other && $self->has_permission_to("contribute_as_$other", $bodies);
+}
+
 sub adopt {
     my ($self, $other) = @_;