diff options
Diffstat (limited to 'perllib/Open311.pm')
| -rw-r--r-- | perllib/Open311.pm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 0c8c3fde6..9a9ac5eb4 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -87,8 +87,16 @@ EOT sub get_service_requests { my $self = shift; + my $report_ids = shift; - my $service_request_xml = $self->_get( 'requests.xml' ); + my $params = {}; + + if ( $report_ids ) { + $params->{service_request_id} = join ',', @$report_ids; + } + + my $service_request_xml = $self->_get( 'requests.xml', $params || undef ); + return $self->_get_xml_object( $service_request_xml ); } sub get_service_request_id_from_token { @@ -109,11 +117,13 @@ sub get_service_request_id_from_token { sub _get { my $self = shift; my $path = shift; - my $params = shift; + my $params = shift || {}; my $uri = URI->new( $self->endpoint ); + + $params->{ jurisdiction_id } = $self->jurisdiction; $uri->path( $uri->path . $path ); - $uri->query_form( jurisdiction_id => $self->jurisdiction ); + $uri->query_form( $params ); my $content = get( $uri->as_string ); |