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

(-)a/C4/UsageStats.pm (-1 / +68 lines)
Lines 78-83 sub BuildReport { Link Here
78
    foreach ( @{ _shared_preferences() } ) {
78
    foreach ( @{ _shared_preferences() } ) {
79
        $report->{systempreferences}{$_} = C4::Context->preference($_);
79
        $report->{systempreferences}{$_} = C4::Context->preference($_);
80
    }
80
    }
81
82
    # Get private systempreferences and set "Used" or "Empty"
83
    foreach ( @{ _shared_private_preferences() } ) {
84
        if ( C4::Context->preference($_) ) {
85
            $report->{systempreferences}{$_} = "Used";
86
            next;
87
        }
88
        $report->{systempreferences}{$_} = "Empty";
89
    }
81
    return $report;
90
    return $report;
82
}
91
}
83
92
Lines 356-361 sub _shared_preferences { Link Here
356
    return \@preferences;
365
    return \@preferences;
357
}
366
}
358
367
368
=head2 _shared_private_preferences
369
370
    my $preferences = C4::UsageStats::_shared_private_preferences
371
372
Returns an I<arreyref> with the system preferences to be shared without their values.
373
374
=cut
375
376
sub _shared_private_preferences {
377
378
    my @preferences = qw/
379
        AmazonAssocTag
380
        CoceHost
381
        CookieConsentedJS
382
        IntranetCirculationHomeHTML
383
        intranetcolorstylesheet
384
        IntranetFavicon
385
        IntranetmainUserblock
386
        IntranetNav
387
        IntranetReportsHomeHTML
388
        IntranetSlipPrinterJS
389
        intranetstylesheet
390
        IntranetUserCSS
391
        IntranetUserJS
392
        OpacAdditionalStylesheet
393
        OpacCustomSearch
394
        OPACHoldsIfAvailableAtPickupExceptions
395
        opaclayoutstylesheet
396
        OpacLoginInstructions
397
        OPACLoginLabelTextContent
398
        OpacMainUserBlock
399
        OpacMetaRobots
400
        OpacMoreSearches
401
        OPACMySummaryHTML
402
        OPACNoResultsFound
403
        OPACnumSearchResultsDropdown
404
        OPACOpenURLItemTypes
405
        OPACOverDrive
406
        OPACResultsLibrary
407
        OPACResultsSidebar
408
        OPACSearchForTitleIn
409
        OPACUserCSS
410
        OPACUserJS
411
        ProcessingFeeNote
412
        RestrictedPageContent
413
        RoutingListNote
414
        SCOUserCSS
415
        SCOUserJS
416
        SelfCheckInUserCSS
417
        SelfCheckInUserJS
418
        SlipCSS
419
        SpineLabelFormat
420
        XSLTDetailsDisplay
421
        z3950Status
422
        /;
423
424
    return \@preferences;
425
}
426
359
=head2 _count
427
=head2 _count
360
428
361
  $data = _count($table);
429
  $data = _count($table);
362
- 

Return to bug 23898