Lines 34-39
use C4::Context;
Link Here
|
34 |
use C4::Installer; |
34 |
use C4::Installer; |
35 |
|
35 |
|
36 |
use Koha; |
36 |
use Koha; |
|
|
37 |
use Koha::Borrowers; |
37 |
use Koha::Config::SysPrefs; |
38 |
use Koha::Config::SysPrefs; |
38 |
|
39 |
|
39 |
#use Smart::Comments '####'; |
40 |
#use Smart::Comments '####'; |
Lines 77-82
my $warnPrefAnonymousPatron = (
Link Here
|
77 |
and not C4::Context->preference('AnonymousPatron') |
78 |
and not C4::Context->preference('AnonymousPatron') |
78 |
); |
79 |
); |
79 |
|
80 |
|
|
|
81 |
my $anonymous_patron = Koha::Borrowers->find( C4::Context->preference('AnonymousPatron') ); |
82 |
my $warnPrefAnonymousPatron_PatronDoesNotExist = ( not $anonymous_patron and Koha::Borrowers->search({ privacy => 2 })->count ); |
83 |
|
80 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
84 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
81 |
|
85 |
|
82 |
my $warnIsRootUser = (! $loggedinuser); |
86 |
my $warnIsRootUser = (! $loggedinuser); |
Lines 227-232
$template->param(
Link Here
|
227 |
warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities, |
231 |
warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities, |
228 |
warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords, |
232 |
warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords, |
229 |
warnPrefAnonymousPatron => $warnPrefAnonymousPatron, |
233 |
warnPrefAnonymousPatron => $warnPrefAnonymousPatron, |
|
|
234 |
warnPrefAnonymousPatron_PatronDoesNotExist => $warnPrefAnonymousPatron_PatronDoesNotExist, |
230 |
errZebraConnection => $errZebraConnection, |
235 |
errZebraConnection => $errZebraConnection, |
231 |
warnIsRootUser => $warnIsRootUser, |
236 |
warnIsRootUser => $warnIsRootUser, |
232 |
warnNoActiveCurrency => $warnNoActiveCurrency, |
237 |
warnNoActiveCurrency => $warnNoActiveCurrency, |