From a47eb5ea549b63d8fb410f966124c7ef0fdc3227 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@gmail.com>
Date: Thu, 6 Feb 2014 17:30:24 -0300
Subject: [PATCH] Bug 11704: Make */svc/report print the correct headers

To test:
1 - Go through the first comments instructions to reproduce
    and verify the bug is present (OPAC and STAFF)
2 - Apply the patch
3 - Repeat step 1 and notice
   * characters are not broken anymore
   * the header is correct
4 - Sign off

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
(cherry picked from commit aace5d436dbab1f13e2e1c06d0b4ed5f1ec13ced)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 opac/svc/report | 5 ++++-
 svc/report      | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/opac/svc/report b/opac/svc/report
index 38cbd426d8..37e5997e78 100755
--- a/opac/svc/report
+++ b/opac/svc/report
@@ -60,5 +60,8 @@ unless ($json_text) {
     }
 }
 
-print $query->header;
+print $query->header(
+    -charset    => 'UTF-8',
+    -type       => 'application/json'
+);
 print $json_text;
diff --git a/svc/report b/svc/report
index 654ef1572b..68bde341cc 100755
--- a/svc/report
+++ b/svc/report
@@ -69,5 +69,8 @@ unless ($json_text) {
     }
 }
 
-print $query->header;
+print $query->header(
+    -charset    => 'UTF-8',
+    -type       => 'application/json'
+);
 print $json_text;
-- 
2.39.5