diff options
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 ); |