diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-03-20 15:43:12 +0000 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-03-20 15:43:12 +0000 |
| commit | 245e2f4ffd812c67ed4c4298cc1f142f59fe1b97 (patch) | |
| tree | 54b075e16a3cda1a96fc4ded9345ef40cc309187 /perllib/Open311.pm | |
| parent | 95ffa6ce5fb32c09fcc389b69057a6abb0efec9a (diff) | |
regularise data structure in open311 module as that is more sensible
Diffstat (limited to 'perllib/Open311.pm')
| -rw-r--r-- | perllib/Open311.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 0773edc19..030e8092c 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -135,7 +135,16 @@ sub get_service_request_updates { my $params = {}; my $xml = $self->_get( $self->endpoints->{service_request_updates}, $params || undef ); - return $self->_get_xml_object( $xml ); + my $service_requests = $self->_get_xml_object( $xml ); + my $requests; + if ( ref $service_requests->{request_update } eq 'ARRAY' ) { + $requests = $service_requests->{request_update}; + } + else { + $requests = [ $service_requests->{request_update} ]; + } + + return $requests; } sub _get { |