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