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 |
- |
|
|