View | Details | Raw Unified | Return to bug 28446
Collapse All | Expand All

(-)a/opac/svc/overdrive (-3 / +2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use JSON qw(encode_json);
23
use JSON qw(to_json);
24
use C4::Auth qw(checkauth);
24
use C4::Auth qw(checkauth);
25
use C4::Output;
25
use C4::Output;
26
use Koha::Logger;
26
use Koha::Logger;
Lines 159-164 sub response_bad_request { Link Here
159
sub response {
159
sub response {
160
    my ($data, $status_line) = @_;
160
    my ($data, $status_line) = @_;
161
    $status_line ||= "200 OK";
161
    $status_line ||= "200 OK";
162
    output_with_http_headers $cgi, undef, encode_json($data), 'json', $status_line;
162
    output_with_http_headers $cgi, undef, to_json($data), 'json', $status_line;
163
    exit;
163
    exit;
164
}
164
}
165
- 

Return to bug 28446