|
Lines 44-49
use Koha;
Link Here
|
| 44 |
use Koha::DateUtils qw(dt_from_string output_pref); |
44 |
use Koha::DateUtils qw(dt_from_string output_pref); |
| 45 |
use Koha::Acquisition::Currencies; |
45 |
use Koha::Acquisition::Currencies; |
| 46 |
use Koha::BiblioFrameworks; |
46 |
use Koha::BiblioFrameworks; |
|
|
47 |
use Koha::Email; |
| 47 |
use Koha::Patron::Categories; |
48 |
use Koha::Patron::Categories; |
| 48 |
use Koha::Patrons; |
49 |
use Koha::Patrons; |
| 49 |
use Koha::Caches; |
50 |
use Koha::Caches; |
|
Lines 196-201
my $warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist = ( $AnonymousPatr
Link Here
|
| 196 |
|
197 |
|
| 197 |
my $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist = ( not $anonymous_patron and Koha::Patrons->search({ privacy => 2 })->count ); |
198 |
my $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist = ( not $anonymous_patron and Koha::Patrons->search({ privacy => 2 })->count ); |
| 198 |
|
199 |
|
|
|
200 |
my $warnPrefKohaAdminEmailAddress = not Email::Valid->address(C4::Context->preference('KohaAdminEmailAddress')); |
| 201 |
|
| 199 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
202 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
| 200 |
|
203 |
|
| 201 |
my $warnIsRootUser = (! $loggedinuser); |
204 |
my $warnIsRootUser = (! $loggedinuser); |
|
Lines 571-576
$template->param(
Link Here
|
| 571 |
warnPrefAnonymousPatronAnonSuggestions => $warnPrefAnonymousPatronAnonSuggestions, |
574 |
warnPrefAnonymousPatronAnonSuggestions => $warnPrefAnonymousPatronAnonSuggestions, |
| 572 |
warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist => $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist, |
575 |
warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist => $warnPrefAnonymousPatronOPACPrivacy_PatronDoesNotExist, |
| 573 |
warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist => $warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist, |
576 |
warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist => $warnPrefAnonymousPatronAnonSuggestions_PatronDoesNotExist, |
|
|
577 |
warnPrefKohaAdminEmailAddress => $warnPrefKohaAdminEmailAddress, |
| 574 |
errZebraConnection => $errZebraConnection, |
578 |
errZebraConnection => $errZebraConnection, |
| 575 |
warnIsRootUser => $warnIsRootUser, |
579 |
warnIsRootUser => $warnIsRootUser, |
| 576 |
warnNoActiveCurrency => $warnNoActiveCurrency, |
580 |
warnNoActiveCurrency => $warnNoActiveCurrency, |