Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 13888: DBRev 24.06.00.017

Browse source 
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Martin Renvoize 2024-07-22 10:27:20 +01:00
parent e9242adf94
commit 876332b676
Signed by: martin.renvoize
GPG key ID: 422B469130441A0F
2 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Koha.pm
View file

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
$VERSION = "24.06.00.016";
$VERSION = "24.06.00.017";
sub version {
return $VERSION;

11
installer/data/mysql/atomicupdate/bug_13888-Add-extra-list-perms.pl → installer/data/mysql/db_revs/240600017.pl
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 => "13888",
@ -9,13 +10,15 @@ return {
$dbh->do(
q{ INSERT IGNORE INTO permissions (module_bit,code,description) VALUES (20, 'use_public_lists', 'Use public lists') }
);
say $out "Added permission 'use_public_lists'";
) == 1
? say_success( $out, "Added permission 'use_public_lists'" )
: say_info( $out, "Permission 'use_public_lists' already exists" );
$dbh->do(
q{ INSERT IGNORE INTO permissions (module_bit,code,description) VALUES (20, 'create_public_lists', 'Create public lists') }
);
say $out "Added permission 'create_public_lists'";
) == 1
? say_success( $out, "Added permission 'create_public_lists'" )
: say_info( $out, "Permission 'create_public_lists' already exists" );
},
};