diff --git a/installer/data/mysql/atomicupdate/Bug_39142.pl b/installer/data/mysql/atomicupdate/Bug_39142.pl new file mode 100755 index 0000000000..aba00480b0 --- /dev/null +++ b/installer/data/mysql/atomicupdate/Bug_39142.pl @@ -0,0 +1,20 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "39142", + description => "Adding a Debug User permission", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do( + q{ + INSERT IGNORE INTO userflags (bit, flag, flagdesc, defaulton) + VALUES (32, 'debug', 'Show Debug Interface', 0) + } + ); + + say $out "Added new permission 'Debug'"; + }, +}; diff --git a/installer/data/mysql/mandatory/userflags.sql b/installer/data/mysql/mandatory/userflags.sql index 0a30014f66..f1974d93eb 100644 --- a/installer/data/mysql/mandatory/userflags.sql +++ b/installer/data/mysql/mandatory/userflags.sql @@ -29,4 +29,5 @@ INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES (29, 'loggedinlibrary', 'Change logged in library', 0), (30, 'preservation', 'Preservation module', 0), (31, 'sip2', 'SIP2 module', 0) +(32, 'debug', 'Show Debug Interface', 0) ;