View | Details | Raw Unified | Return to bug 41182
Collapse All | Expand All

(-)a/Koha/ERM/EUsage/UsageDataProvider.pm (-4 / +4 lines)
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 && $self->dateformat eq "yyyy-mm-dd" ? 10 : 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
- 

Return to bug 41182