X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=about.pl;h=b9508c6f5dbf278a41c106d835694bfccdbe7cd1;hb=ced4ca4e2d39856b4f00411eaee406b569199c1f;hp=329618220fa22a019a4424774102439912673503;hpb=e5a24bbbdd0d0e9ff09bfaadfe4c4bb37312e7ec;p=koha.git diff --git a/about.pl b/about.pl index 329618220f..b9508c6f5d 100755 --- a/about.pl +++ b/about.pl @@ -55,13 +55,12 @@ if ($^O ne 'VMS') { } my $perlVersion = $]; my $mysqlVersion = `mysql -V`; -my $apacheVersion = `httpd -v`; -$apacheVersion = `httpd2 -v` unless $apacheVersion; +my $apacheVersion = `httpd -v 2> /dev/null`; +$apacheVersion = `httpd2 -v 2> /dev/null` unless $apacheVersion; $apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion; my $zebraVersion = `zebraidx -V`; # Additional system information for warnings -my $prefNoZebra = C4::Context->preference('nozebra'); my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities'); my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities'); my $warnPrefBiblioAddsAuthorities = ( $prefAutoCreateAuthorities && ( !$prefBiblioAddsAuthorities) ); @@ -69,6 +68,10 @@ my $warnPrefBiblioAddsAuthorities = ( $prefAutoCreateAuthorities && ( !$prefBibl my $prefEasyAnalyticalRecords = C4::Context->preference('EasyAnalyticalRecords'); my $prefUseControlNumber = C4::Context->preference('UseControlNumber'); my $warnPrefEasyAnalyticalRecords = ( $prefEasyAnalyticalRecords && $prefUseControlNumber ); +my $warnPrefAnonymousPatron = ( + C4::Context->preference('OPACPrivacy') + and not C4::Context->preference('AnonymousPatron') +); my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); @@ -83,11 +86,11 @@ $template->param( mysqlVersion => $mysqlVersion, apacheVersion => $apacheVersion, zebraVersion => $zebraVersion, - prefNoZebra => $prefNoZebra, prefBiblioAddsAuthorities => $prefBiblioAddsAuthorities, prefAutoCreateAuthorities => $prefAutoCreateAuthorities, warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities, warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords, + warnPrefAnonymousPatron => $warnPrefAnonymousPatron, errZebraConnection => $errZebraConnection, warnIsRootUser => $warnIsRootUser, );