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

(-)a/C4/UsageStats.pm (-2 / +2 lines)
Lines 24-29 use C4::Context; Link Here
24
use POSIX qw(strftime);
24
use POSIX qw(strftime);
25
use LWP::UserAgent;
25
use LWP::UserAgent;
26
use JSON;
26
use JSON;
27
use URI::Encode qw(uri_encode);
27
28
28
=head1 NAME C4::UsageStats
29
=head1 NAME C4::UsageStats
29
30
Lines 369-375 Send to hea.koha-community.org database informations Link Here
369
370
370
sub ReportToCommunity {
371
sub ReportToCommunity {
371
    my $data = shift;
372
    my $data = shift;
372
    my $json = to_json($data);
373
    my $json = uri_encode(to_json($data), 1);
373
374
374
    my $ua = LWP::UserAgent->new;
375
    my $ua = LWP::UserAgent->new;
375
    my $req = HTTP::Request->new(POST => "http://hea.koha-community.org/upload.pl");
376
    my $req = HTTP::Request->new(POST => "http://hea.koha-community.org/upload.pl");
376
- 

Return to bug 11926