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

(-)a/Koha/ERM/EUsage/UsageDataProvider.pm (-9 / +8 lines)
Lines 174-182 sub harvest_sushi { Link Here
174
    $self->{report_type} = $args->{report_type};
174
    $self->{report_type} = $args->{report_type};
175
    $self->{begin_date}  = $args->{begin_date};
175
    $self->{begin_date}  = $args->{begin_date};
176
    $self->{end_date}    = $args->{end_date};
176
    $self->{end_date}    = $args->{end_date};
177
    my $url      = $self->_build_url_query;
177
    my $url     = $self->_build_url_query;
178
    my $request  = HTTP::Request->new( 'GET' => $url );
178
    my $request = HTTP::Request->new( 'GET' => $url );
179
    my $ua       = LWP::UserAgent->new;
179
    my $ua      = LWP::UserAgent->new;
180
    $ua->agent( 'Koha/' . Koha::version() );
180
    $ua->agent( 'Koha/' . Koha::version() );
181
    my $response = $ua->simple_request($request);
181
    my $response = $ua->simple_request($request);
182
182
Lines 277-286 sub test_connection { Link Here
277
    $url .= 'status';
277
    $url .= 'status';
278
    $url .= '?customer_id=' . $self->customer_id;
278
    $url .= '?customer_id=' . $self->customer_id;
279
    $url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id;
279
    $url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id;
280
    $url .= '&api_key=' . $self->api_key if $self->api_key;
280
    $url .= '&api_key=' . $self->api_key           if $self->api_key;
281
281
282
    my $request  = HTTP::Request->new( 'GET' => $url );
282
    my $request = HTTP::Request->new( 'GET' => $url );
283
    my $ua       = LWP::UserAgent->new;
283
    my $ua      = LWP::UserAgent->new;
284
    $ua->agent( 'Koha/' . Koha::version() );
284
    $ua->agent( 'Koha/' . Koha::version() );
285
    my $response = $ua->simple_request($request);
285
    my $response = $ua->simple_request($request);
286
286
Lines 396-404 sub _build_url_query { Link Here
396
    $url .= lc $self->{report_type};
396
    $url .= lc $self->{report_type};
397
    $url .= '?customer_id=' . $self->customer_id;
397
    $url .= '?customer_id=' . $self->customer_id;
398
    $url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id;
398
    $url .= '&requestor_id=' . $self->requestor_id if $self->requestor_id;
399
    $url .= '&api_key=' . $self->api_key if $self->api_key;
399
    $url .= '&api_key=' . $self->api_key           if $self->api_key;
400
    $url .= '&begin_date=' . substr $self->{begin_date}, 0, 7 if $self->{begin_date};
400
    $url .= '&begin_date=' . substr $self->{begin_date}, 0, 7 if $self->{begin_date};
401
    $url .= '&end_date=' . substr $self->{end_date}, 0, 7 if $self->{end_date};
401
    $url .= '&end_date=' . substr $self->{end_date},     0, 7 if $self->{end_date};
402
402
403
    return $url;
403
    return $url;
404
}
404
}
405
- 

Return to bug 37308