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 22f4b1b..9751f63 100755 (executable)
--- a/opac/svc/overdrive_proxy
+++ b/opac/svc/overdrive_proxy
@@ -32,8 +32,7 @@ JS side from having to deal with cross-origin/authentication issues.
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw(-oldstyle_urls -utf8);
 use JSON;
@@ -42,6 +41,8 @@ use C4::Context;
 use C4::External::OverDrive;
 use C4::Output;
 
+use Koha;
+
 my $query = new CGI;
 
 my $token;
@@ -58,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' ) {