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