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

(-)a/installer/data/mysql/atomicupdate/bug_30230_add-new-list-borrowers-permission.pl (-2 / +2 lines)
Lines 1-14 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
return {
3
return {
4
    bug_number  => "BUG_30230",
4
    bug_number  => "30230",
5
    description => "Add new list_borrowers permission",
5
    description => "Add new list_borrowers permission",
6
    up          => sub {
6
    up          => sub {
7
        my ($args) = @_;
7
        my ($args) = @_;
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
9
10
        $dbh->do(
10
        $dbh->do(
11
            "INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (4, 'list_borrowers', 'Search and list patrons')"
11
            "INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (4, 'list_borrowers', 'Search, list and view patrons')"
12
        );
12
        );
13
13
14
        say $out "Added new permission 'list_borrowers'";
14
        say $out "Added new permission 'list_borrowers'";
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/home-search.inc (-2 / +1 lines)
Lines 4-10 Link Here
4
        [% IF ( CAN_user_circulate_circulate_remaining_permissions ) %]
4
        [% IF ( CAN_user_circulate_circulate_remaining_permissions ) %]
5
            [% circ_active_tab = 1 %]
5
            [% circ_active_tab = 1 %]
6
            [% circ_active = "active" %]
6
            [% circ_active = "active" %]
7
        [% ELSIF ( CAN_user_borrowers_edit_borrowers ) %]
7
        [% ELSIF ( CAN_user_borrowers_edit_borrowers ) || ( CAN_user_borrowers_list_borrowers ) %]
8
            [% patrons_active_tab = 1 %]
8
            [% patrons_active_tab = 1 %]
9
            [% patrons_active = "active" %]
9
            [% patrons_active = "active" %]
10
        [% ELSIF ( CAN_user_catalogue ) %]
10
        [% ELSIF ( CAN_user_catalogue ) %]
11
- 

Return to bug 30230