From f57a1de7e9cc49d452d471913ab2aaed8edeb14b Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 20 Feb 2026 14:59:00 +0000 Subject: [PATCH] Bug 41814: (QA follow-up) Add bug number to atomic update and some style fixes Signed-off-by: Katrin Fischer --- installer/data/mysql/atomicupdate/bug_xxxxx.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/installer/data/mysql/atomicupdate/bug_xxxxx.pl b/installer/data/mysql/atomicupdate/bug_xxxxx.pl index 6cba0c59ddc..e95ad2d5d31 100755 --- a/installer/data/mysql/atomicupdate/bug_xxxxx.pl +++ b/installer/data/mysql/atomicupdate/bug_xxxxx.pl @@ -2,8 +2,8 @@ use Modern::Perl; use Koha::Installer::Output qw(say_warning say_success say_info); return { - bug_number => "XXXXX", - description => "Add a new syspref for PatronAgeRestriction", + bug_number => "41900", + description => "Add a new system preference for PatronAgeRestriction", up => sub { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; @@ -14,13 +14,13 @@ return { INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('PatronAgeRestriction', '', NULL, 'Patron\'s maximum age during registration. If empty, no age restriction is applied.', 'Integer') } ); - say $out "Added new syspref 'PatronAgeRestriction'"; + say_success( $out, "Added new system preference 'PatronAgeRestriction'" ); $dbh->do( q{ UPDATE IGNORE systempreferences SET `explanation` = 'Patron\'s maximum age during self registration. If empty, honor PatronAgeRestriction.' WHERE `variable` = 'PatronSelfRegistrationAgeRestriction' } ); - say $out "Updated explanation for syspref 'PatronSelfRegistrationAgeRestriction'"; + say_success( $out, "Updated explanation for system preference 'PatronSelfRegistrationAgeRestriction'" ); }, }; -- 2.39.5