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>
This commit is contained in:
Julian Maurice 2014-03-14 16:04:14 +01:00 committed by Tomas Cohen Arazi
parent c765b8f2b2
commit e6b944f4e8
1 changed files with 2 additions and 1 deletions

View File

@ -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");