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

(-)a/installer/data/mysql/atomicupdate/Bug_35830_add_merge_borrowers_permission.pl (-1 / +24 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
use Koha::Installer::Output qw(say_warning say_success say_info);
3
4
return {
5
    bug_number  => "35830",
6
    description => "Add permission borrowers:merge_borrowers",
7
    up          => sub {
8
        my ($args) = @_;
9
        my ( $dbh, $out ) = @$args{qw(dbh out)};
10
11
        $dbh->do(
12
            q{INSERT IGNORE INTO permissions (module_bit, code, description)
13
            VALUES (4, 'merge_borrowers', 'Merge patrons')}
14
        );
15
16
        say $out "Added new permission 'merge_borrowers'";
17
18
        $dbh->do(
19
            q{INSERT INTO user_permissions (borrowernumber, module_bit, code) SELECT  borrowernumber, module_bit, 'merge_borrowers' FROM user_permissions where module_bit = 4 and code = 'edit_borrowers';}
20
        );
21
22
        say $out "Added 'merge_borrowers' permission to existing users with 'edit_borrowers'";
23
    },
24
};

Return to bug 35830