diff options
author | Struan Donald <struan@exo.org.uk> | 2011-10-11 09:41:04 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2011-10-11 09:41:04 +0100 |
commit | bd24d2a0365e65cd6b0bc3623f2d7c16a5e4269a (patch) | |
tree | 6a49912282ccc3681af0878f24226bdf6484c275 /perllib/Open311/PopulateServiceList.pm | |
parent | 100779cc2b4a344d13edd1f47756db926567d69a (diff) |
handle change of service name for existing service code
Diffstat (limited to 'perllib/Open311/PopulateServiceList.pm')
-rw-r--r-- | perllib/Open311/PopulateServiceList.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Open311/PopulateServiceList.pm b/perllib/Open311/PopulateServiceList.pm index 8a5a14a92..ce5e678c0 100644 --- a/perllib/Open311/PopulateServiceList.pm +++ b/perllib/Open311/PopulateServiceList.pm @@ -91,7 +91,7 @@ sub process_service { } } -# FIXME - handle change of service name or service code +# FIXME - handle change of service code sub _handle_existing_contact { my ( $self, $contact ) = @_; @@ -100,7 +100,7 @@ sub _handle_existing_contact { print $self->_current_council->area_id . " already has a contact for service code " . $self->_current_service->{service_code} . "\n"; push @{ $self->found_contacts }, $self->_current_service->{service_code}; - if ( $contact->deleted ) { + if ( $contact->deleted || $service_name ne $contact->category ) { $contact->update( { category => $service_name, |