From c7dbb65e2d01e37f276af3db0372123366b3a1a1 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Mon, 22 Jun 2020 17:20:10 +0100 Subject: Rewrite open311-update-reports to share code. Make GetUpdates and GetServiceRequestUpdates share a common base; spot all visible states. --- perllib/Open311.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perllib/Open311.pm') diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 00e4bae9b..41cd0f1e0 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -14,6 +14,7 @@ use FixMyStreet::Cobrand; use FixMyStreet::DB; use Utils; use Path::Tiny 'path'; +use FixMyStreet::App::Model::PhotoSet; has jurisdiction => ( is => 'ro', isa => Str );; has api_key => ( is => 'ro', isa => Str ); @@ -277,7 +278,8 @@ sub get_service_requests { }; my $service_request_xml = $self->_get( $self->endpoints->{requests}, $params || undef ); - return $self->_get_xml_object( $service_request_xml ); + my $requests = $self->_get_xml_object( $service_request_xml ); + return $requests->{request}; } sub get_service_request_id_from_token { -- cgit v1.2.3