Lines 35-41
JS side from having to deal with cross-origin/authentication issues.
Link Here
|
35 |
use strict; |
35 |
use strict; |
36 |
use warnings; |
36 |
use warnings; |
37 |
|
37 |
|
38 |
use CGI qw(-oldstyle_urls -utf8); |
38 |
use CGI qw( -utf8); |
39 |
use JSON; |
39 |
use JSON; |
40 |
|
40 |
|
41 |
use C4::Context; |
41 |
use C4::Context; |
Lines 46-53
use Koha;
Link Here
|
46 |
|
46 |
|
47 |
my $query = new CGI; |
47 |
my $query = new CGI; |
48 |
|
48 |
|
49 |
my $token; |
|
|
50 |
|
51 |
if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) { |
49 |
if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) { |
52 |
print $query->header( |
50 |
print $query->header( |
53 |
-status => '400 Bad Request', |
51 |
-status => '400 Bad Request', |
Lines 61-67
if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
Link Here
|
61 |
exit; |
59 |
exit; |
62 |
} |
60 |
} |
63 |
|
61 |
|
64 |
my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string ); |
62 |
my $token; |
|
|
63 |
my $q = $query->param('q'); |
64 |
my $limit = $query->param('limit'); |
65 |
my $offset = $query->param('offset'); |
66 |
|
67 |
my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1?q=" . $q . "&limit=" . $limit . "&offset=".$offset); |
65 |
$request->header( Authorization => $token ); |
68 |
$request->header( Authorization => $token ); |
66 |
|
69 |
|
67 |
my $ua = LWP::UserAgent->new( "Koha " . Koha::version() ); |
70 |
my $ua = LWP::UserAgent->new( "Koha " . Koha::version() ); |
68 |
- |
|
|