From e6b944f4e86efb30ae88277e81fbfb20f41d5670 Mon Sep 17 00:00:00 2001
From: Julian Maurice <julian.maurice@biblibre.com>
Date: Fri, 14 Mar 2014 16:04:14 +0100
Subject: [PATCH] Bug 11926: URI-encode data sent to statistics server

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 C4/UsageStats.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/UsageStats.pm b/C4/UsageStats.pm
index 3fcd6f36bc..a5478b7823 100644
--- a/C4/UsageStats.pm
+++ b/C4/UsageStats.pm
@@ -24,6 +24,7 @@ use C4::Context;
 use POSIX qw(strftime);
 use LWP::UserAgent;
 use JSON;
+use URI::Encode qw(uri_encode);
 
 =head1 NAME C4::UsageStats
 
@@ -369,7 +370,7 @@ Send to hea.koha-community.org database informations
 
 sub ReportToCommunity {
     my $data = shift;
-    my $json = to_json($data);
+    my $json = uri_encode(to_json($data), 1);
 
     my $ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(POST => "http://hea.koha-community.org/upload.pl");
-- 
2.39.5