From 6cf5b8d509305a4d6ba190fe3ded3ad903f336c3 Mon Sep 17 00:00:00 2001
From: Nick Clemens <nick@bywatersolutions.com>
Date: Wed, 6 Aug 2025 18:01:50 +0000
Subject: [PATCH] Bug 39802: Atomic update file

Sponsored-by: MAIN Library Alliance
Signed-off-by: Trevor Diamond <trevor.diamond@mainlib.org>
Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 .../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 0000000000..2b55e8f8ac
--- /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'";
+    },
+};