From 7b713e5acfba3be547a859005ff2dbd00cb60e26 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 13 Sep 2024 11:48:42 +0000 Subject: [PATCH] Bug 27490: DBRev 24.06.00.027 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../bug_27490-change-syspref.pl => db_revs/240600027.pl} | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) rename installer/data/mysql/{atomicupdate/bug_27490-change-syspref.pl => db_revs/240600027.pl} (52%) diff --git a/Koha.pm b/Koha.pm index e5c4ba2855..4f863496b2 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.026"; +$VERSION = "24.06.00.027"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_27490-change-syspref.pl b/installer/data/mysql/db_revs/240600027.pl similarity index 52% rename from installer/data/mysql/atomicupdate/bug_27490-change-syspref.pl rename to installer/data/mysql/db_revs/240600027.pl index 58cae586c2..24a7918829 100755 --- a/installer/data/mysql/atomicupdate/bug_27490-change-syspref.pl +++ b/installer/data/mysql/db_revs/240600027.pl @@ -1,14 +1,15 @@ use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); return { bug_number => "27490", - description => "Changing language syspref to StaffInterfaceLanguages", + description => "Change language syspref to StaffInterfaceLanguages", up => sub { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; $dbh->do(q{UPDATE systempreferences SET variable='StaffInterfaceLanguages' WHERE variable='language'}); - say $out "Updated system preference 'Change language to StaffInterfaceLanguages'"; + say_success( $out, "Updated system preference 'language' to 'StaffInterfaceLanguages'" ); }, }; -- 2.39.5