From 6858fd886d617814524acbc6f01982b0924f7960 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Thu, 20 Jul 2023 16:31:40 +0100
Subject: [PATCH] Bug 34328: Add Scottish Gaelic to languages

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
---
 .../data/mysql/atomicupdate/bug_34328.pl      | 46 +++++++++++++++++++
 .../data/mysql/mandatory/subtag_registry.sql  | 23 ++++++++++
 2 files changed, 69 insertions(+)
 create mode 100755 installer/data/mysql/atomicupdate/bug_34328.pl

diff --git a/installer/data/mysql/atomicupdate/bug_34328.pl b/installer/data/mysql/atomicupdate/bug_34328.pl
new file mode 100755
index 00000000000..50794c67d18
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_34328.pl
@@ -0,0 +1,46 @@
+use Modern::Perl;
+
+return {
+    bug_number  => "34328",
+    description => "Add Scottish Gaelic to recognised languages",
+    up          => sub {
+        my ($args) = @_;
+        my ( $dbh, $out ) = @$args{qw(dbh out)};
+        $dbh->do(q{
+            INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
+            VALUES ( 'gd','gla' )
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_subtag_registry( subtag, type, description, added)
+            VALUES ( 'gd', 'language', 'Scottish Gaelic', NOW() )
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_descriptions(subtag, type, lang, description)
+            VALUES ( 'gd', 'language', 'en', 'Scottish Gaelic')
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_descriptions(subtag, type, lang, description)
+            VALUES ( 'gd', 'language', 'gd', 'Gàidhlig')
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_descriptions(subtag, type, lang, description)
+            VALUES ( 'gd', 'language', 'fr', 'Gaélique écossais')
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_descriptions(subtag, type, lang, description)
+            VALUES ( 'gd', 'language', 'de', 'Schottisch-Gälisch')
+        });
+
+        $dbh->do(q{
+            INSERT INTO language_descriptions(subtag, type, lang, description)
+            VALUES ( 'gd', 'language', 'pl', 'Język szkocki gaelicki')
+        });
+
+        say $out "Added new language 'Scottish Gaelic'";
+    },
+};
diff --git a/installer/data/mysql/mandatory/subtag_registry.sql b/installer/data/mysql/mandatory/subtag_registry.sql
index f0e2d33308b..c27789b6d77 100644
--- a/installer/data/mysql/mandatory/subtag_registry.sql
+++ b/installer/data/mysql/mandatory/subtag_registry.sql
@@ -425,6 +425,29 @@ VALUES ( 'fr', 'language', 'de', 'Französisch');
 INSERT INTO language_descriptions(subtag, type, lang, description)
 VALUES ( 'fr', 'language', 'pl', 'Francuski');
 
+-- Scottish Gaelic
+
+INSERT INTO language_subtag_registry( subtag, type, description, added)
+VALUES ( 'gd', 'language', 'Scottish Gaelic', NOW() );
+
+INSERT INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
+VALUES ( 'gd','gla');
+
+INSERT INTO language_descriptions(subtag, type, lang, description)
+VALUES ( 'gd', 'language', 'en', 'Scottish Gaelic');
+
+INSERT INTO language_descriptions(subtag, type, lang, description)
+VALUES ( 'gd', 'language', 'gd', 'Gàidhlig');
+
+INSERT INTO language_descriptions(subtag, type, lang, description)
+VALUES ( 'gd', 'language', 'fr', 'Gaélique écossais');
+
+INSERT INTO language_descriptions(subtag, type, lang, description)
+VALUES ( 'gd', 'language', 'de', 'Schottisch-Gälisch');
+
+INSERT INTO language_descriptions(subtag, type, lang, description)
+VALUES ( 'gd', 'language', 'pl', 'Język szkocki gaelicki');
+
 -- Galician
 INSERT INTO language_subtag_registry( subtag, type, description, added)
 VALUES ( 'gl', 'language', 'Galician','2005-10-16' );
-- 
2.41.0