1 package C4
::UsageStats
;
3 # This file is part of Koha.
5 # Copyright 2014 BibLibre
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
22 use POSIX
qw(strftime);
34 This package contains what is needed to report Koha statistics to hea
35 hea.koha-community.org is the server that centralize Koha setups informations
36 Koha libraries are encouraged to provide informations about their collections,
41 $needUpdateYN = C4::UsageStats::NeedUpdate;
43 Returns Y (1) if the last update is more than 1 month old
44 This way, even if the cronjob is run every minute, the webservice will be called
50 my $lastupdated = C4
::Context
->preference('UsageStatsLastUpdateTime') || 0;
51 my $now = strftime
( "%s", localtime );
53 # Need to launch cron.
54 return 1 if $now - $lastupdated >= 2592000;
56 # Data don't need to be updated
63 if( C4
::Context
->preference('UsageStatsLibrariesInfo') ) {
64 my $libraries = Koha
::Libraries
->search;
65 while ( my $library = $libraries->next ) {
66 push @libraries, { name
=> $library->branchname, url
=> $library->branchurl, country
=> $library->branchcountry, geolocation
=> $library->geolocation, };
71 koha_id
=> C4
::Context
->preference('UsageStatsID') || 0,
72 name
=> C4
::Context
->preference('UsageStatsLibraryName') || q
||,
73 url
=> C4
::Context
->preference('UsageStatsLibraryUrl') || q
||,
74 type
=> C4
::Context
->preference('UsageStatsLibraryType') || q
||,
75 country
=> C4
::Context
->preference('UsageStatsCountry') || q
||,
76 geolocation
=> C4
::Context
->preference('UsageStatsGeolocation') || q
||,
78 libraries
=> \
@libraries,
81 # Get database volumetry.
83 qw
/biblio items auth_header old_issues old_reserves borrowers aqorders subscription/
86 $report->{volumetry
}{$_} = _count
($_);
89 # Get systempreferences.
93 AcqWarnOnDuplicateInvoice
109 AutoCreateAuthorities
110 BiblioAddsAuthorities
113 UseAuthoritiesForTracings
116 IntranetBiblioDefaultView
122 DefaultClassificationSource
123 EasyAnalyticalRecords
130 SpineLabelShowPrintOnBibDetails
131 BlockReturnOfLostItems
132 BlockReturnOfWithdrawnItems
133 CalculateFinesOnReturn
134 AgeRestrictionOverride
137 AllowItemsOnHoldCheckout
138 AllowItemsOnHoldCheckoutSCO
139 AllowNotForLoanOverride
140 AllowRenewalLimitOverride
144 AutoRemoveOverduesRestrictions
147 InProcessingToShelvingCart
150 ManInvInNoissuesCharge
154 RentalsInNoissuesCharge
157 TransfersMaxDaysWarning
158 UseBranchTransferLimits
160 UseTransportCostMatrix
163 FinesIncludeGracePeriod
165 RefundLostOnReturnControl
166 WhenLostChargeReplacementFee
168 AllowHoldDateInFuture
169 AllowHoldPolicyOverride
170 AllowHoldsOnDamagedItems
171 AllowHoldsOnPatronsPossessions
172 AutoResumeSuspendedHolds
173 canreservefromotherbranches
174 decreaseLoanHighHolds
175 DisplayMultiPlaceHold
176 emailLibrarianWhenHoldIsPlaced
177 ExpireReservesMaxPickUpDelay
178 OPACAllowHoldDateInFuture
179 OPACAllowUserToChooseBranch
180 ReservesControlBranch
184 TransferWhenCancelAllWaitingHolds
185 AllowAllMessageDeletion
186 AllowOfflineCirculation
188 CircAutoPrintQuickSlip
189 DisplayClearScreenButton
190 FilterBeforeOverdueReport
192 itemBarcodeFallbackSearch
193 itemBarcodeInputFilter
194 previousIssuesDefaultSortOrder
195 RecordLocalUseOnReturn
198 todaysIssuesDefaultSortOrder
199 UpdateTotalIssuesOnCirc
201 WaitingNotifyAtCheckin
202 AllowSelfCheckReturns
207 OPACAmazonCoverImages
212 IDreamBooksReadometer
215 LibraryThingForLibrariesEnabled
218 NovelistSelectEnabled
225 CalendarFirstDayOfWeek
239 HighlightOwnItemsOnOPAC
240 OpacAddMastheadLibraryPulldown
241 OPACDisplay856uAsImage
248 OpacShowFiltersPulldownMobile
249 OPACShowHoldQueueDetails
250 OpacShowLibrariesPulldownMobile
251 OpacShowRecentComments
252 OPACShowUnusedAuthorities
255 OPACURLOpenInNewWindow
267 OPACPopupAuthorsSearch
277 AllowPurchaseSuggestionBranchChoice
278 OpacAllowPublicListCreation
279 OpacAllowSharingPrivateLists
282 OPACViewOthersSuggestions
285 EnableOpacSearchHistory
289 PatronSelfRegistration
292 AutoEmailPrimaryAddress
294 BorrowerRenewalPeriodBase
297 EnhancedMessagingPreferences
298 ExtendedPatronAttributes
299 intranetreadinghistory
302 TalkingTechItivaPhoneNotification
304 IncludeSeeFromInSearches
310 TraceCompleteSubfields
311 TraceSubjectSubdivisions
317 OPACItemsResultsDisplay
319 IntranetNumbersPreferPhrase
320 OPACNumbersPreferPhrase
322 RenewSerialAddsSuggestion
323 RoutingListAddReserves
332 StaffDetailItemSelection
342 $report->{systempreferences
}{$_} = C4
::Context
->preference($_);
347 =head2 ReportToCommunity
351 Send to hea.koha-community.org database informations
355 sub ReportToCommunity
{
357 my $json = encode_json
($data);
359 my $url = "https://hea.koha-community.org/upload.pl";
360 my $ua = LWP
::UserAgent
->new;
363 'Content-type' => 'application/json;charset=utf-8',
366 my $content = decode_json
( $res->decoded_content );
367 if ( $content->{koha_id
} ) {
368 C4
::Context
->set_preference( 'UsageStatsID', $content->{koha_id
} );
370 if ( $content->{id
} ) {
371 C4
::Context
->set_preference( 'UsageStatsPublicID', $content->{id
} );
377 $data = _count($table);
379 Count the number of records in $table tables
386 my $dbh = C4
::Context
->dbh;
387 my $sth = $dbh->prepare("SELECT count(*) from $table");
389 return $sth->fetchrow_array;