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

(-)a/C4/UsageStats.pm (-36 / +48 lines)
Lines 87-94 sub BuildReport { Link Here
87
    }
87
    }
88
88
89
    # Get systempreferences.
89
    # Get systempreferences.
90
    foreach (
90
    foreach ( @{ _shared_preferences() } )
91
        qw/
91
    {
92
        $report->{systempreferences}{$_} = C4::Context->preference($_);
93
    }
94
    return $report;
95
}
96
97
=head2 ReportToCommunity
98
99
  ReportToCommunity;
100
101
Send to hea.koha-community.org database informations
102
103
=cut
104
105
sub ReportToCommunity {
106
    my $data = shift;
107
    my $json = encode_json($data);
108
109
    my $url = "https://hea.koha-community.org/upload.pl";
110
    my $ua = LWP::UserAgent->new;
111
    my $res = $ua->post(
112
        $url,
113
        'Content-type' => 'application/json;charset=utf-8',
114
        Content => $json,
115
    );
116
    my $content = decode_json( $res->decoded_content );
117
    if ( $content->{koha_id} ) {
118
        C4::Context->set_preference( 'UsageStatsID', $content->{koha_id} );
119
    }
120
    if ( $content->{id} ) {
121
        C4::Context->set_preference( 'UsageStatsPublicID', $content->{id} );
122
    }
123
}
124
125
=head2 _shared_preferences
126
127
    my $preferences = C4::UsageStats::_shared_preferences
128
129
Returns an I<arreyref> with the system preferences to be shared.
130
131
=cut
132
133
sub _shared_preferences {
134
135
    my @preferences = qw/
92
        AcqCreateItem
136
        AcqCreateItem
93
        AcqWarnOnDuplicateInvoice
137
        AcqWarnOnDuplicateInvoice
94
        AcqViewBaskets
138
        AcqViewBaskets
Lines 325-364 sub BuildReport { Link Here
325
        ILS-DI
369
        ILS-DI
326
        OAI-PMH
370
        OAI-PMH
327
        version
371
        version
328
        /
372
        /;
329
      )
330
    {
331
        $report->{systempreferences}{$_} = C4::Context->preference($_);
332
    }
333
    return $report;
334
}
335
336
=head2 ReportToCommunity
337
338
  ReportToCommunity;
339
340
Send to hea.koha-community.org database informations
341
342
=cut
343
373
344
sub ReportToCommunity {
374
    return \@preferences;
345
    my $data = shift;
346
    my $json = encode_json($data);
347
348
    my $url = "https://hea.koha-community.org/upload.pl";
349
    my $ua = LWP::UserAgent->new;
350
    my $res = $ua->post(
351
        $url,
352
        'Content-type' => 'application/json;charset=utf-8',
353
        Content => $json,
354
    );
355
    my $content = decode_json( $res->decoded_content );
356
    if ( $content->{koha_id} ) {
357
        C4::Context->set_preference( 'UsageStatsID', $content->{koha_id} );
358
    }
359
    if ( $content->{id} ) {
360
        C4::Context->set_preference( 'UsageStatsPublicID', $content->{id} );
361
    }
362
}
375
}
363
376
364
=head2 _count
377
=head2 _count
365
- 

Return to bug 28565