diff options
author | Matthew Somerville <matthew-github@dracos.co.uk> | 2014-11-26 16:37:01 +0000 |
---|---|---|
committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2014-11-26 16:37:01 +0000 |
commit | 8fdae5f539efb09604812626809c005234dcef46 (patch) | |
tree | 9f3cbdbad318c5b0c86ee1d1401b125732f75f84 /perllib/Open311.pm | |
parent | 7903d4475b45cd09de5d89e04dfd0a90b13ea079 (diff) | |
parent | 2bab62e9e6276cd3e8b0aaddf3a1363c1efa726c (diff) |
Merge branch 'open311-populate-error-improvement'
Diffstat (limited to 'perllib/Open311.pm')
-rw-r--r-- | perllib/Open311.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 1ab60bd4e..424054f53 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -368,7 +368,8 @@ sub _get { my $uri = URI->new( $self->endpoint ); - $params->{ jurisdiction_id } = $self->jurisdiction; + $params->{ jurisdiction_id } = $self->jurisdiction + if $self->jurisdiction; $uri->path( $uri->path . $path ); $uri->query_form( $params ); @@ -412,12 +413,11 @@ sub _post { my $uri = URI->new( $self->endpoint ); $uri->path( $uri->path . $path ); - my $req = POST $uri->as_string, - [ - jurisdiction_id => $self->jurisdiction, - api_key => $self->api_key, - %{ $params } - ]; + $params->{jurisdiction_id} = $self->jurisdiction + if $self->jurisdiction; + $params->{api_key} = $self->api_key + if $self->api_key; + my $req = POST $uri->as_string, $params; $self->debug_details( $self->debug_details . "\nrequest:" . $req->as_string ); |