5 description => "Add missing languages",
8 my $dbh = $args->{dbh};
10 if( !unique_key_exists( 'language_subtag_registry', 'uniq_lang' ) ) {
14 FROM language_subtag_registry AS a, language_subtag_registry AS b
16 AND a.subtag IS NOT NULL
21 ALTER TABLE language_subtag_registry
22 ADD UNIQUE KEY uniq_lang (subtag, type)
26 if( !unique_key_exists( 'language_descriptions', 'uniq_desc' ) ) {
30 FROM language_descriptions AS a, language_descriptions AS b
32 AND a.subtag IS NOT NULL
34 AND a.lang IS NOT NULL
39 ALTER TABLE language_descriptions
40 ADD UNIQUE KEY uniq_desc (subtag, type, lang)
44 if( !unique_key_exists( 'language_rfc4646_to_iso639', 'uniq_code' ) ) {
48 FROM language_rfc4646_to_iso639 AS a, language_rfc4646_to_iso639 AS b
50 AND a.rfc4646_subtag IS NOT NULL
51 AND a.rfc4646_subtag=b.rfc4646_subtag
52 AND a.iso639_2_code=b.iso639_2_code
55 ALTER TABLE language_rfc4646_to_iso639
56 ADD UNIQUE KEY uniq_code (rfc4646_subtag, iso639_2_code)
61 INSERT IGNORE INTO language_subtag_registry (subtag, type, description, added)
63 ('et', 'language', 'Estonian', now()),
64 ('lv', 'language', 'Latvian', now()),
65 ('lt', 'language', 'Lithuanian', now()),
66 ('iu', 'language', 'Inuktitut', now()),
67 ('ik', 'language', 'Inupiaq', now())
71 INSERT IGNORE INTO language_descriptions (subtag, type, lang, description)
73 ('et', 'language', 'en', 'Estonian'),
74 ('et', 'language', 'et', 'Eesti'),
75 ('lv', 'language', 'en', 'Latvian'),
76 ('lv', 'language', 'lv', 'Latvija'),
77 ('lt', 'language', 'en', 'Lithuanian'),
78 ('lt', 'language', 'lt', 'Lietuvių'),
79 ('iu', 'language', 'en', 'Inuktitut'),
80 ('iu', 'language', 'iu', 'ᐃᓄᒃᑎᑐᑦ'),
81 ('ik', 'language', 'en', 'Inupiaq'),
82 ('ik', 'language', 'ik', 'Iñupiaq')
86 INSERT IGNORE INTO language_rfc4646_to_iso639 (rfc4646_subtag, iso639_2_code)