use C4::Installer;
use Koha;
+use Koha::Borrowers;
use Koha::Config::SysPrefs;
#use Smart::Comments '####';
and not C4::Context->preference('AnonymousPatron')
);
+my $anonymous_patron = Koha::Borrowers->find( C4::Context->preference('AnonymousPatron') );
+my $warnPrefAnonymousPatron_PatronDoesNotExist = ( not $anonymous_patron and Koha::Borrowers->search({ privacy => 2 })->count );
+
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode();
my $warnIsRootUser = (! $loggedinuser);
}
}
+# Sco Patron should not contain any other perms than circulate => self_checkout
+if ( C4::Context->preference('WebBasedSelfCheck')
+ and C4::Context->preference('AutoSelfCheckAllowed')
+) {
+ my $userid = C4::Context->preference('AutoSelfCheckID');
+ my $all_permissions = C4::Auth::get_user_subpermissions( $userid );
+ my ( $has_self_checkout_perm, $has_other_permissions );
+ while ( my ( $module, $permissions ) = each %$all_permissions ) {
+ if ( $module eq 'circulate' ) {
+ while ( my ( $permission, $flag ) = each %$permissions ) {
+ if ( $permission eq 'self_checkout' ) {
+ $has_self_checkout_perm = 1;
+ } else {
+ $has_other_permissions = 1;
+ }
+ }
+ } else {
+ $has_other_permissions = 1;
+ }
+ }
+ $template->param(
+ AutoSelfCheckPatronDoesNotHaveSelfCheckPerm => not ( $has_self_checkout_perm ),
+ AutoSelfCheckPatronHasTooManyPerm => $has_other_permissions,
+ );
+
+
+}
+
$template->param(
kohaVersion => $kohaVersion,
osVersion => $osVersion,
warnPrefBiblioAddsAuthorities => $warnPrefBiblioAddsAuthorities,
warnPrefEasyAnalyticalRecords => $warnPrefEasyAnalyticalRecords,
warnPrefAnonymousPatron => $warnPrefAnonymousPatron,
+ warnPrefAnonymousPatron_PatronDoesNotExist => $warnPrefAnonymousPatron_PatronDoesNotExist,
errZebraConnection => $errZebraConnection,
warnIsRootUser => $warnIsRootUser,
warnNoActiveCurrency => $warnNoActiveCurrency,