From 4458c08b75df9d7bff995c51ca970cf0d47da192 Mon Sep 17 00:00:00 2001
From: Lucas Gass <lucas@bywatersolutions.com>
Date: Tue, 31 Oct 2023 17:52:51 +0000
Subject: [PATCH] Bug 34438: Database update

Signed-off-by: David Nind <david@davidnind.com>
---
 installer/data/mysql/atomicupdate/bug_34438.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 installer/data/mysql/atomicupdate/bug_34438.pl

diff --git a/installer/data/mysql/atomicupdate/bug_34438.pl b/installer/data/mysql/atomicupdate/bug_34438.pl
new file mode 100755
index 00000000000..10a12607f7e
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_34438.pl
@@ -0,0 +1,15 @@
+use Modern::Perl;
+
+return {
+    bug_number  => "34438",
+    description => "Add lang to to the borrower_modifications table",
+    up          => sub {
+        my ($args) = @_;
+        my $dbh = $args->{dbh};
+        if ( !column_exists( 'borrower_modifications', 'lang' ) ) {
+            $dbh->do(
+                "ALTER TABLE `borrower_modifications` ADD COLUMN `lang` VARCHAR(25) DEFAULT NULL AFTER `primary_contact_method`"
+            );
+        }
+    },
+    }
-- 
2.30.2