From ad646cb787b28d51d04b4425d380503b5a471621 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 21 Jun 2024 12:46:56 +0000 Subject: [PATCH] Bug 35153: DBRev 24.06.00.008 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../240600008.pl} | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) rename installer/data/mysql/{atomicupdate/bug-35153-move-IntranetmainUserblock-to-additional-contents.pl => db_revs/240600008.pl} (85%) diff --git a/Koha.pm b/Koha.pm index 10e576aef5..7d8888c686 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.007"; +$VERSION = "24.06.00.008"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug-35153-move-IntranetmainUserblock-to-additional-contents.pl b/installer/data/mysql/db_revs/240600008.pl similarity index 85% rename from installer/data/mysql/atomicupdate/bug-35153-move-IntranetmainUserblock-to-additional-contents.pl rename to installer/data/mysql/db_revs/240600008.pl index e50c7ba5e9..75e0a9d19b 100755 --- a/installer/data/mysql/atomicupdate/bug-35153-move-IntranetmainUserblock-to-additional-contents.pl +++ b/installer/data/mysql/db_revs/240600008.pl @@ -1,4 +1,5 @@ use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); return { bug_number => "35153", @@ -29,12 +30,12 @@ return { undef, $insert_id, $intranetmainuserblock ); - say $out "Added 'IntranetmainUserblock' HTML customization"; + say_success( $out, "Added 'IntranetmainUserblock' HTML customization" ); } # Remove old system preference $dbh->do("DELETE FROM systempreferences WHERE variable='IntranetmainUserblock'"); - say $out "Removed system preference 'IntranetmainUserblock'"; + say_success( $out, "Removed system preference 'IntranetmainUserblock'" ); }, }; -- 2.39.5