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