From 1a1aa90cdc7fadbffa2fba725d8ab91f6edf8bb9 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Mon, 26 Aug 2024 08:35:00 +0000 Subject: [PATCH] Bug 20411: DBRev 24.06.00.026 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../mysql/{atomicupdate/bug_20411.pl => db_revs/240600026.pl} | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) rename installer/data/mysql/{atomicupdate/bug_20411.pl => db_revs/240600026.pl} (67%) diff --git a/Koha.pm b/Koha.pm index 3368d7111d..e5c4ba2855 100644 --- a/Koha.pm +++ b/Koha.pm @@ -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.025"; +$VERSION = "24.06.00.026"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_20411.pl b/installer/data/mysql/db_revs/240600026.pl similarity index 67% rename from installer/data/mysql/atomicupdate/bug_20411.pl rename to installer/data/mysql/db_revs/240600026.pl index b9e4950b97..6363b4218c 100755 --- a/installer/data/mysql/atomicupdate/bug_20411.pl +++ b/installer/data/mysql/db_revs/240600026.pl @@ -1,4 +1,5 @@ use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); return { bug_number => "20411", @@ -7,12 +8,11 @@ return { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; - # Do you stuffs here $dbh->do( q{ DELETE FROM systempreferences WHERE variable='StaffDetailItemSelection' } - ) == 1 && say $out "Removed system preference 'StaffDetailItemSelection'"; + ) == 1 && say_success( $out, "Removed system preference 'StaffDetailItemSelection'" ); }, }; -- 2.39.5