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

(-)a/Koha/ERM/EUsage/UsageDataProvider.pm (-1 / +3 lines)
Lines 27-32 use Koha::Exceptions; Link Here
27
27
28
use base qw(Koha::Object);
28
use base qw(Koha::Object);
29
29
30
use Koha;
30
use Koha::ERM::EUsage::CounterFile;
31
use Koha::ERM::EUsage::CounterFile;
31
use Koha::ERM::EUsage::CounterFiles;
32
use Koha::ERM::EUsage::CounterFiles;
32
use Koha::ERM::EUsage::UsageTitles;
33
use Koha::ERM::EUsage::UsageTitles;
Lines 176-181 sub harvest_sushi { Link Here
176
    my $url      = $self->_build_url_query;
177
    my $url      = $self->_build_url_query;
177
    my $request  = HTTP::Request->new( 'GET' => $url );
178
    my $request  = HTTP::Request->new( 'GET' => $url );
178
    my $ua       = LWP::UserAgent->new;
179
    my $ua       = LWP::UserAgent->new;
180
    $ua->agent( 'Koha/' . Koha::version() );
179
    my $response = $ua->simple_request($request);
181
    my $response = $ua->simple_request($request);
180
182
181
    if ( $response->code >= 400 ) {
183
    if ( $response->code >= 400 ) {
Lines 279-284 sub test_connection { Link Here
279
281
280
    my $request  = HTTP::Request->new( 'GET' => $url );
282
    my $request  = HTTP::Request->new( 'GET' => $url );
281
    my $ua       = LWP::UserAgent->new;
283
    my $ua       = LWP::UserAgent->new;
284
    $ua->agent( 'Koha/' . Koha::version() );
282
    my $response = $ua->simple_request($request);
285
    my $response = $ua->simple_request($request);
283
286
284
    if ( $response->{_rc} >= 400 ) {
287
    if ( $response->{_rc} >= 400 ) {
285
- 

Return to bug 37308