Bug 33363: (QA follow-up) Use say_success in atomic update

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Kyle Hall 2024-07-02 12:09:40 +00:00 committed by Katrin Fischer
parent 83df11e541
commit 377fde1b8f
Signed by: kfischer
GPG key ID: 0EF6E2C03357A834

View file

@ -1,4 +1,5 @@
use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
return {
bug_number => "33363",
@ -10,16 +11,17 @@ return {
$dbh->do(
q{INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (12, 'suggestions_create', 'Create purchase suggestions')}
);
) && say_success($out, "Added new permissions suggestions_create");
$dbh->do(
q{INSERT IGNORE INTO permissions (module_bit, code, description) VALUES (12, 'suggestions_delete', 'Update purchase suggestions')}
);
) && say_success($out, "Added new permissions suggestions_delete");
$dbh->do(
q{INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, 12, 'suggestions_create' FROM borrowers WHERE flags & (1 << 2)}
);
) && say_success($out, "Added new permissions suggestions_create to patrons with suggestions_manage");
$dbh->do(
q{INSERT IGNORE INTO user_permissions (borrowernumber, module_bit, code) SELECT borrowernumber, 12, 'suggestions_delete' FROM borrowers WHERE flags & (1 << 2)}
);
) && say_success($out, "Added new permissions suggestions_delete to patrons with suggestions_manage");
},
};