From 6e8f00177930323d59e74944fd05ad4bb47982a5 Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 6 Aug 2025 18:01:50 +0000 Subject: [PATCH] Bug 39802: Atomic update file --- .../data/mysql/atomicupdate/bug_39802.pl | 25 +++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_39802.pl diff --git a/installer/data/mysql/atomicupdate/bug_39802.pl b/installer/data/mysql/atomicupdate/bug_39802.pl new file mode 100755 index 00000000000..2b55e8f8ac7 --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_39802.pl @@ -0,0 +1,25 @@ +use Modern::Perl; +use Koha::Installer::Output qw(say_warning say_success say_info); + +return { + bug_number => "39802", + description => "Add LostChargesControl system preference", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + # Get the existing value from the CircControl system preference + my ($circcontrol) = $dbh->selectrow_array( + q| + SELECT value FROM systempreferences WHERE variable='CircControl'; + | + ); + $dbh->do( + q{ + INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES + ('LostChargesControl',?,'PickupLibrary|PatronLibrary|ItemHomeLibrary','Specify the agency that controls the charges for items being marked lost','Choice') + }, undef, $circcontrol + ); + say $out "Added new system preference 'LostChargesControl'"; + }, +}; -- 2.39.5