diff --git a/perllib/Open311/Endpoint/Integration/Passthrough.pm b/perllib/Open311/Endpoint/Integration/Passthrough.pm index 8d75411b..4e7d1c44 100644 --- a/perllib/Open311/Endpoint/Integration/Passthrough.pm +++ b/perllib/Open311/Endpoint/Integration/Passthrough.pm @@ -134,6 +134,7 @@ sub services { next unless $_->{service_name}; $_->{groups} = delete $_->{group} if $_->{group}; $_->{description} ||= ''; + $_->{keywords} = [ split /\s*,\s*/, $_->{keywords} ] if $_->{keywords}; my $service = Open311::Endpoint::Service->new(%$_); if ($_->{metadata} eq 'true') { # An empty one is enough to get the metadata true passed out diff --git a/t/open311/endpoint/passthrough.t b/t/open311/endpoint/passthrough.t index db7af464..56979232 100644 --- a/t/open311/endpoint/passthrough.t +++ b/t/open311/endpoint/passthrough.t @@ -34,7 +34,7 @@ my $expected_services = <Flooding Flooding & Drainage - + hello,hello2,hello3 true ABC_DEF Flooding