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