| 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 | -  |  |  |