diff options
Diffstat (limited to 'perllib/Open311/GetServiceRequests.pm')
| -rw-r--r-- | perllib/Open311/GetServiceRequests.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Open311/GetServiceRequests.pm b/perllib/Open311/GetServiceRequests.pm index b1cb0c4dc..78e9647fa 100644 --- a/perllib/Open311/GetServiceRequests.pm +++ b/perllib/Open311/GetServiceRequests.pm @@ -137,7 +137,7 @@ sub create_problems { }; $problems = $self->schema->resultset('Problem')->to_body($body)->search( $criteria ); - my @contacts = grep { $request->{service_code} eq $_->category } $contacts->all; + my @contacts = grep { $request->{service_code} eq $_->email } $contacts->all; my $contact = $contacts[0] ? $contacts[0]->category : 'Other'; my $state = $open311->map_state($request->{status}); |