From be240afe3ba659bd1224c2e078dd272e4ea215aa Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Wed, 5 Jun 2024 17:18:17 +0100 Subject: [PATCH] Bug 34597: (QA follow-up) Add missing database revision Signed-off-by: Martin Renvoize --- installer/data/mysql/atomicupdate/bug_34597.pl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_34597.pl diff --git a/installer/data/mysql/atomicupdate/bug_34597.pl b/installer/data/mysql/atomicupdate/bug_34597.pl new file mode 100755 index 0000000000..92f68b70b0 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_34597.pl @@ -0,0 +1,16 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_failure say_success say_info); + +return { + bug_number => "34597", + description => "Update BlockExpiredPatronOpacActions to include ill_request", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + $dbh->do( + "UPDATE systempreferences SET options='hold,renew,ill_request' WHERE variable='BlockExpiredPatronOpacActions'" + ) == 1 + and say_success( $out, "BlockExpiredPatronOpacActions system updated to include ill_request." ); + }, +}; -- 2.39.5