From f973193830927c5ce000e39c1329e68a64bf6ba3 Mon Sep 17 00:00:00 2001 From: Emily Lamancusa 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 Signed-off-by: Nick Clemens Signed-off-by: Katrin Fischer (cherry picked from commit 43e480255d06357416c200b41e59c30c6ae70cac) Signed-off-by: Fridolin Somers --- ...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 0000000000..cbdb1c7436 --- /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.39.5