+# Additional system information for warnings
+my $prefAutoCreateAuthorities = C4::Context->preference('AutoCreateAuthorities');
+my $prefBiblioAddsAuthorities = C4::Context->preference('BiblioAddsAuthorities');
+my $warnPrefBiblioAddsAuthorities = ( $prefAutoCreateAuthorities && ( !$prefBiblioAddsAuthorities) );
+
+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();
+
+my $warnIsRootUser = (! $loggedinuser);
+
+my $warnNoActiveCurrency = (! defined C4::Budgets->GetCurrency());
+my @xml_config_warnings;
+
+if ( ! defined C4::Context->config('zebra_bib_index_mode') ) {
+ push @xml_config_warnings, {
+ error => 'zebra_bib_index_mode_warn'
+ };
+}
+
+if ( ! defined C4::Context->config('zebra_auth_index_mode') ) {
+ push @xml_config_warnings, {
+ error => 'zebra_auth_index_mode_warn'
+ };
+}
+