From e81f7e2ef2507c6bcd20d119e494d3aaf79b555b Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 18 Jul 2024 16:07:48 +0000 Subject: [PATCH] Bug 28924: DBRev 24.06.00.016 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../bug_28924-noissuescharges.pl => db_revs/240600016.pl} | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) rename installer/data/mysql/{atomicupdate/bug_28924-noissuescharges.pl => db_revs/240600016.pl} (74%) diff --git a/Koha.pm b/Koha.pm index f58bc4d1a5..62865404ac 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.015"; +$VERSION = "24.06.00.016"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug_28924-noissuescharges.pl b/installer/data/mysql/db_revs/240600016.pl similarity index 74% rename from installer/data/mysql/atomicupdate/bug_28924-noissuescharges.pl rename to installer/data/mysql/db_revs/240600016.pl index d3ca993ffe..9b8e847a54 100755 --- a/installer/data/mysql/atomicupdate/bug_28924-noissuescharges.pl +++ b/installer/data/mysql/db_revs/240600016.pl @@ -1,4 +1,5 @@ use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); return { bug_number => "28924", @@ -12,19 +13,19 @@ return { q{ ALTER TABLE categories ADD COLUMN `noissuescharge` int(11) AFTER `exclude_from_local_holds_priority` } ); - say $out "Added column 'noissuescharge' to categories"; + say_success( $out, "Added column 'noissuescharge' to categories" ); } unless ( column_exists( 'categories', 'noissueschargeguarantees' ) ) { $dbh->do(q{ ALTER TABLE categories ADD COLUMN `noissueschargeguarantees` int(11) AFTER `noissuescharge` }); - say $out "Added column 'noissueschargeguarantees' to categories"; + say_success( $out, "Added column 'noissueschargeguarantees' to categories" ); } unless ( column_exists( 'categories', 'noissueschargeguarantorswithguarantees' ) ) { $dbh->do( q{ ALTER TABLE categories ADD COLUMN `noissueschargeguarantorswithguarantees` int(11) AFTER `noissueschargeguarantees` } ); - say $out "Added column 'noissueschargeguarantorswithguarantees' to categories"; + say_success( $out, "Added column 'noissueschargeguarantorswithguarantees' to categories" ); } }, }; -- 2.39.5