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 | |
| parent | 95ffa6ce5fb32c09fcc389b69057a6abb0efec9a (diff) | |
regularise data structure in open311 module as that is more sensible
Diffstat (limited to 'perllib/Open311')
| -rw-r--r-- | perllib/Open311/GetServiceRequestUpdates.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/perllib/Open311/GetServiceRequestUpdates.pm b/perllib/Open311/GetServiceRequestUpdates.pm index 53dd7722b..c77b30f4f 100644 --- a/perllib/Open311/GetServiceRequestUpdates.pm +++ b/perllib/Open311/GetServiceRequestUpdates.pm @@ -10,18 +10,7 @@ has system_user => ( is => 'ro' ); sub update_comments { my ( $self, $open311, $council_details ) = @_; - my $service_requests = $open311->get_service_request_updates( ); - - my $requests; - - # XML::Simple is a bit inconsistent in how it structures - # things depending on the number of children an element has :( - if ( ref $service_requests->{request_update } eq 'ARRAY' ) { - $requests = $service_requests->{requesti_update}; - } - else { - $requests = [ $service_requests->{request_update} ]; - } + my $requests = $open311->get_service_request_updates( ); for my $request (@$requests) { # if it's a ref that means it's an empty element |