View | Details | Raw Unified | Return to bug 41522
Collapse All | Expand All

(-)a/about.pl (+15 lines)
Lines 397-402 if ( $tab eq 'sysinfo' ) { Link Here
397
        my $userid          = C4::Context->preference('AutoSelfCheckID');
397
        my $userid          = C4::Context->preference('AutoSelfCheckID');
398
        my $all_permissions = C4::Auth::get_user_subpermissions($userid);
398
        my $all_permissions = C4::Auth::get_user_subpermissions($userid);
399
        my ( $has_self_checkout_perm, $has_other_permissions );
399
        my ( $has_self_checkout_perm, $has_other_permissions );
400
400
        while ( my ( $module, $permissions ) = each %$all_permissions ) {
401
        while ( my ( $module, $permissions ) = each %$all_permissions ) {
401
            if ( $module eq 'self_check' ) {
402
            if ( $module eq 'self_check' ) {
402
                while ( my ( $permission, $flag ) = each %$permissions ) {
403
                while ( my ( $permission, $flag ) = each %$permissions ) {
Lines 416-421 if ( $tab eq 'sysinfo' ) { Link Here
416
        );
417
        );
417
    }
418
    }
418
419
420
    my $patron = Koha::Patrons->find( { borrowernumber => $loggedinuser } );
421
422
    my ($has_sysprefs_perm);
423
424
    if ( C4::Auth::haspermission( $patron->userid, { superlibrarian => '1' } ) ) {
425
        $has_sysprefs_perm = 1;
426
    } elsif ( C4::Auth::haspermission( $patron->userid, { parameters => 'manage_sysprefs' } ) ) {
427
        $has_sysprefs_perm = 1;
428
    }
429
430
    $template->param(
431
        UserHasSysPrefsPerm => $has_sysprefs_perm,
432
    );
433
419
    if ( C4::Context->preference('PatronSelfRegistration') ) {
434
    if ( C4::Context->preference('PatronSelfRegistration') ) {
420
        $template->param( warnPrefPatronSelfRegistrationDefaultCategory => 1 )
435
        $template->param( warnPrefPatronSelfRegistrationDefaultCategory => 1 )
421
            unless Koha::Patron::Categories->find( C4::Context->preference('PatronSelfRegistrationDefaultCategory') );
436
            unless Koha::Patron::Categories->find( C4::Context->preference('PatronSelfRegistrationDefaultCategory') );
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt (-7 / +9 lines)
Lines 545-556 Link Here
545
                    [% IF (warnPrefRequireChoosingExistingAuthority) %]
545
                    [% IF (warnPrefRequireChoosingExistingAuthority) %]
546
                        <tr>
546
                        <tr>
547
                            <th scope="row"><strong>Warning</strong> </th>
547
                            <th scope="row"><strong>Warning</strong> </th>
548
                            <td
548
                            <td>
549
                                >System preference '<a href="admin/preferences.pl?op=search&searchfield=RequireChoosingExistingAuthority&ok=Search">RequireChoosingExistingAuthority</a>' is disabled, but needs '<a
549
                                [% IF (UserHasSysPrefsPerm) %]
550
                                    href="admin/preferences.pl?op=search&searchfield=AutoCreateAuthorities&ok=Search"
550
                                    System preference '
551
                                    >AutoCreateAuthorities</a
551
                                    <a href="admin/preferences.pl?op=search&searchfield=RequireChoosingExistingAuthority&ok=Search">RequireChoosingExistingAuthority</a>' is disabled, but needs '
552
                                >' enabled. Otherwise catalogers can add headings that will not be linked to authorities.</td
552
                                    <a href="admin/preferences.pl?op=search&searchfield=AutoCreateAuthorities&ok=Search">AutoCreateAuthorities</a>' enabled. Otherwise catalogers can add headings that will not be linked to authorities.
553
                            >
553
                                [% ELSE %]
554
                                    System preference 'RequireChoosingExistingAuthority' is disabled, but needs 'AutoCreateAuthorities' enabled. Otherwise catalogers can add headings that will not be linked to authorities.
555
                                [% END %]
556
                            </td>
554
                        </tr>
557
                        </tr>
555
                    [% END %]
558
                    [% END %]
556
                    [% IF (warnPrefEasyAnalyticalRecords) %]
559
                    [% IF (warnPrefEasyAnalyticalRecords) %]
557
- 

Return to bug 41522