From 74efe03f4112318166c09746f42204b1455b5127 Mon Sep 17 00:00:00 2001
From: Emily Lamancusa <emily.lamancusa@montgomerycountymd.gov>
Date: Wed, 27 Mar 2024 10:45:55 -0400
Subject: [PATCH] Bug 36409: Dbrev for existing installations

Dbrev to change EMail to Email for SerialsDefaultEMailAddress and
AcquisitionsDefaultEMailAddress

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 ...EmailAddress_SerialsDefaultEmailAddress.pl | 30 +++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 installer/data/mysql/atomicupdate/bug_36409-fix_syspref_capitalization_AcquisitionsDefaultEmailAddress_SerialsDefaultEmailAddress.pl

diff --git a/installer/data/mysql/atomicupdate/bug_36409-fix_syspref_capitalization_AcquisitionsDefaultEmailAddress_SerialsDefaultEmailAddress.pl b/installer/data/mysql/atomicupdate/bug_36409-fix_syspref_capitalization_AcquisitionsDefaultEmailAddress_SerialsDefaultEmailAddress.pl
new file mode 100755
index 00000000000..cbdb1c74360
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_36409-fix_syspref_capitalization_AcquisitionsDefaultEmailAddress_SerialsDefaultEmailAddress.pl
@@ -0,0 +1,30 @@
+use Modern::Perl;
+
+return {
+    bug_number  => "36409",
+    description => "Fix capitalization for SerialsDefaultEMailAddress and AcquisitionsDefaultEMailAddress",
+    up          => sub {
+        my ($args) = @_;
+        my ( $dbh, $out ) = @$args{qw(dbh out)};
+
+        $dbh->do(
+            q{
+            UPDATE systempreferences
+            SET variable = 'SerialsDefaultEmailAddress'
+            WHERE variable = 'SerialsDefaultEMailAddress';
+        }
+        );
+
+        say $out "Updated system preference 'SerialsDefaultEMailAddress' -> SerialsDefaultEmailAddress";
+
+        $dbh->do(
+            q{
+            UPDATE systempreferences
+            SET variable = 'AcquisitionsDefaultEmailAddress'
+            WHERE variable = 'AcquisitionsDefaultEMailAddress';
+        }
+        );
+
+        say $out "Updated system preference 'AcquisitionsDefaultEMailAddress' -> AcquisitionsDefaultEmailAddress";
+    },
+};
-- 
2.30.2