@@ -, +, @@ --- .../Bug_29393_add_send_message_permission.pl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) mode change 100644 => 100755 installer/data/mysql/atomicupdate/Bug_29393_add_send_message_permission.pl --- a/installer/data/mysql/atomicupdate/Bug_29393_add_send_message_permission.pl +++ a/installer/data/mysql/atomicupdate/Bug_29393_add_send_message_permission.pl @@ -1,14 +1,16 @@ use Modern::Perl; return { - bug_number => "29393", + bug_number => "29393", description => "Add permission borrowers:send_messages_to_borrowers", - up => sub { + up => sub { my ($args) = @_; - my ($dbh, $out) = @$args{qw(dbh out)}; + my ( $dbh, $out ) = @$args{qw(dbh out)}; - $dbh->do(q{INSERT INTO permissions (module_bit, code, description) - VALUES (4, 'send_messages_to_borrowers', 'Send messages to patrons')}); + $dbh->do( + q{INSERT IGNORE INTO permissions (module_bit, code, description) + VALUES (4, 'send_messages_to_borrowers', 'Send messages to patrons')} + ); say $out "Update is going well so far"; }, -} + } --