From 0cf04c11db8226d5868532e16671c1f1c45080cd Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Mon, 3 Feb 2025 13:16:23 +0000 Subject: [PATCH] Bug 35028: DBRev 24.12.00.008 Signed-off-by: Katrin Fischer --- Koha.pm | 2 +- .../mysql/{atomicupdate/bug-35028.pl => db_revs/241200008.pl} | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) rename installer/data/mysql/{atomicupdate/bug-35028.pl => db_revs/241200008.pl} (67%) diff --git a/Koha.pm b/Koha.pm index 10bc8560dc..88fef4b005 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.12.00.007"; +$VERSION = "24.12.00.008"; sub version { return $VERSION; diff --git a/installer/data/mysql/atomicupdate/bug-35028.pl b/installer/data/mysql/db_revs/241200008.pl similarity index 67% rename from installer/data/mysql/atomicupdate/bug-35028.pl rename to installer/data/mysql/db_revs/241200008.pl index 87a8c5348f..a377381dc9 100755 --- a/installer/data/mysql/atomicupdate/bug-35028.pl +++ b/installer/data/mysql/db_revs/241200008.pl @@ -1,8 +1,9 @@ use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); return { bug_number => '35028', - description => 'Add system preference PatronSelfRegistrationAlert', + description => "Add system preference 'PatronSelfRegistrationAlert'", up => sub { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; @@ -11,5 +12,6 @@ return { INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('PatronSelfRegistrationAlert','0',NULL,'If enabled, an alter will be shown on staff interface home page when there are self-registered patrons.','YesNo') " ); + say_success( $out, "Added new system preference 'PatronSelfRegistrationAlert'" ); }, };