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

(-)a/installer/data/mysql/atomicupdate/Bug_29393_add_send_message_permission.pl (-7 / +8 lines)
Lines 1-14 Link Here
1
use Modern::Perl;
1
use Modern::Perl;
2
2
3
return {
3
return {
4
    bug_number => "29393",
4
    bug_number  => "29393",
5
    description => "Add permission borrowers:send_messages_to_borrowers",
5
    description => "Add permission borrowers:send_messages_to_borrowers",
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(q{INSERT INTO permissions (module_bit, code, description)
10
        $dbh->do(
11
            VALUES (4, 'send_messages_to_borrowers', 'Send messages to patrons')});
11
            q{INSERT IGNORE INTO permissions (module_bit, code, description)
12
            VALUES (4, 'send_messages_to_borrowers', 'Send messages to patrons')}
13
        );
12
        say $out "Update is going well so far";
14
        say $out "Update is going well so far";
13
    },
15
    },
14
}
16
    }
15
- 

Return to bug 29393