[N/land] Pass category updates to/from Alloy

perllib/FixMyStreet/Cobrand/Northumberland.pm

@@ -248,6 +248,8 @@
 We pass the name and email address of the user assigned to the report (the
 user who has shortlisted the report).
 
+We pass any category change.
+
 =cut
 
 sub open311_munge_update_params {
@@ -264,6 +266,15 @@
         = $assigned_to
         ? $assigned_to->email
         : '';
+
+    if ( $comment->text =~ /Category changed/ ) {
+        my $service_code = $p->contact->email;
+        my $category_group = $p->get_extra_metadata('group');
+
+        $params->{service_code} = $service_code;
+        $params->{'attribute[group]'} = $category_group
+            if $category_group;
+    }
 }
 
 1;

perllib/Open311/UpdatesBase.pm

@@ -226,6 +226,18 @@
                     $request->{extras}{detailed_information} )
                 : $p->unset_extra_metadata('detailed_information');
         }
+
+        # Category & group
+        # TODO Do we want to check that category and group match?
+        if ( my $category = $request->{extras}{category} ) {
+            my $contact
+                = $body->contacts->search( { category => $category } )->first;
+            $p->category($category) if $contact;
+        }
+
+        if ( my $group = $request->{extras}{group} ) {
+            $p->set_extra_metadata( group => $group );
+        }
     }
 
     my $comment = $self->schema->resultset('Comment')->new(