From fbcdce5e0a00da4eb8884a7786ead92db966ad16 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 28 Jun 2024 16:03:03 +0100
Subject: [PATCH] Bug 37216: (QA follow-up) Add update to set existing options

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 installer/data/mysql/atomicupdate/bug_37216.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 installer/data/mysql/atomicupdate/bug_37216.pl

diff --git a/installer/data/mysql/atomicupdate/bug_37216.pl b/installer/data/mysql/atomicupdate/bug_37216.pl
new file mode 100755
index 0000000000..e773122adf
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_37216.pl
@@ -0,0 +1,18 @@
+use Modern::Perl;
+use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
+
+return {
+    bug_number  => "37216",
+    description => "Ensure EmailFieldSelection options are correct",
+    up          => sub {
+        my ($args) = @_;
+        my ( $dbh, $out ) = @$args{qw(dbh out)};
+
+        # Do you stuffs here
+        $dbh->do(
+            q{ UPDATE systempreferences SET options = 'email|emailpro|B_email' WHERE variable = 'EmailFieldSelection' }
+        );
+
+        say_success( $out, "Updated system preference 'EmailFieldSelection'" );
+    },
+};
-- 
2.39.5