|
Lines 396-409
sub _build_url_query {
Link Here
|
| 396 |
$self->erm_usage_data_provider_id; |
396 |
$self->erm_usage_data_provider_id; |
| 397 |
} |
397 |
} |
| 398 |
|
398 |
|
| 399 |
my $url = $self->_validate_url( $self->service_url, 'harvest' ); |
399 |
my $url = $self->_validate_url( $self->service_url, 'harvest' ); |
|
|
400 |
my $date_format_length = $self->dateformat // 7; |
| 400 |
|
401 |
|
| 401 |
$url .= lc $self->{report_type}; |
402 |
$url .= lc $self->{report_type}; |
| 402 |
$url .= '?customer_id=' . $self->customer_id; |
403 |
$url .= '?customer_id=' . $self->customer_id; |
| 403 |
$url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id; |
404 |
$url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id; |
| 404 |
$url .= '&api_key=' . $self->api_key if $self->api_key; |
405 |
$url .= '&api_key=' . $self->api_key if $self->api_key; |
| 405 |
$url .= '&begin_date=' . substr $self->{begin_date}, 0, 7 if $self->{begin_date}; |
406 |
$url .= '&begin_date=' . substr $self->{begin_date}, 0, $date_format_length if $self->{begin_date}; |
| 406 |
$url .= '&end_date=' . substr $self->{end_date}, 0, 7 if $self->{end_date}; |
407 |
$url .= '&end_date=' . substr $self->{end_date}, 0, $date_format_length if $self->{end_date}; |
| 407 |
$url .= '&platform=' . $self->service_platform if $self->service_platform; |
408 |
$url .= '&platform=' . $self->service_platform if $self->service_platform; |
| 408 |
|
409 |
|
| 409 |
return $url; |
410 |
return $url; |
| 410 |
- |
|
|