Bug 19991: use Modern::Perl in OPAC perl scripts

[koha-ffzg.git] / opac / svc / overdrive_proxy

diff --git a/opac/svc/overdrive_proxy b/opac/svc/overdrive_proxy
index ed306c5..9751f63 100755 (executable)
--- a/opac/svc/overdrive_proxy
+++ b/opac/svc/overdrive_proxy
@@ -32,16 +32,17 @@ JS side from having to deal with cross-origin/authentication issues.
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
-use CGI qw(-oldstyle_urls);
+use CGI qw(-oldstyle_urls -utf8);
 use JSON;
 
 use C4::Context;
 use C4::External::OverDrive;
 use C4::Output;
 
+use Koha;
+
 my $query = new CGI;
 
 my $token;
@@ -49,7 +50,6 @@ my $token;
 if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
     print $query->header(
         -status => '400 Bad Request',
-        -content
     );
 
     print to_json({
@@ -59,11 +59,13 @@ if ( !IsOverDriveEnabled() || !( $token = GetOverDriveToken() ) ) {
 
     exit;
 }
+my $fixed_query = $query->query_string;
+$fixed_query =~ tr/;/&/;
 
-my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $query->query_string );
+my $request = HTTP::Request::Common::GET( "https://api.overdrive.com/v1" . $query->path_info . '?' . $fixed_query );
 $request->header( Authorization => $token );
 
-my $ua = LWP::UserAgent->new( "Koha " . C4::Context->KOHAVERSION );
+my $ua = LWP::UserAgent->new( "Koha " . Koha::version() );
 
 my $response = $ua->request( $request ) ;
 if ( $response->code eq '500' ) {