diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2016-06-17 11:00:44 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2016-06-17 11:00:44 +0100 |
| commit | 7495767b86c91a8f8f5d780021c6aea4468e3d71 (patch) | |
| tree | a163666b1ae11817eff41313c17a7ce220ce2334 /perllib/Open311 | |
| parent | 6624a3c4987e81bb933a42e33967b96b10eba7fd (diff) | |
Fix Open311 service code check.
The service code could be "0".
Diffstat (limited to 'perllib/Open311')
| -rw-r--r-- | perllib/Open311/PopulateServiceList.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Open311/PopulateServiceList.pm b/perllib/Open311/PopulateServiceList.pm index 7c709babf..f5f117fb5 100644 --- a/perllib/Open311/PopulateServiceList.pm +++ b/perllib/Open311/PopulateServiceList.pm @@ -83,7 +83,7 @@ sub process_service { my $service_name = $self->_normalize_service_name; - unless ($self->_current_service->{service_code}) { + unless (defined $self->_current_service->{service_code}) { warn "Service $service_name has no service code for body @{[$self->_current_body->id]}\n" if $self->verbose >= 1; return; |