71 lines
2.1 KiB
Perl
Executable file
71 lines
2.1 KiB
Perl
Executable file
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)};
|
|
|
|
# Unique key on subtag + code.. use INSERT IGNORE
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
|
|
VALUES ( 'gd','gla' )
|
|
}
|
|
);
|
|
|
|
# Unique key on subtag + type.. use INSERT IGNORE
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
|
|
VALUES ( 'gd', 'language', 'Scottish Gaelic', NOW() )
|
|
}
|
|
);
|
|
|
|
# Unique key on subtag + type + lang.. use INSERT IGNORE
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'en', 'Scottish Gaelic')
|
|
}
|
|
);
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'en_GB', 'Scottish Gaelic')
|
|
}
|
|
);
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'gd', 'Gàidhlig')
|
|
}
|
|
);
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'fr', 'Gaélique écossais')
|
|
}
|
|
);
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'de', 'Schottisch-Gälisch')
|
|
}
|
|
);
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
|
|
VALUES ( 'gd', 'language', 'pl', 'Język szkocki gaelicki')
|
|
}
|
|
);
|
|
|
|
say $out "Added new language 'Scottish Gaelic'";
|
|
},
|
|
};
|