installer/data/mysql/db_revs/210600012.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "15067",
   5     description => "Add missing languages",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9
  10         if( !unique_key_exists( 'language_subtag_registry', 'uniq_lang' ) ) {
  11             $dbh->do(q{
  12                 ALTER TABLE language_subtag_registry
  13                 ADD UNIQUE KEY uniq_lang (subtag, type)
  14             });
  15         };
  16
  17         if( !unique_key_exists( 'language_descriptions', 'uniq_desc' ) ) {
  18             $dbh->do(q{
  19                 ALTER TABLE language_descriptions
  20                 ADD UNIQUE KEY uniq_desc (subtag, type, lang)
  21             });
  22         };
  23
  24         if( !unique_key_exists( 'language_rfc4646_to_iso639', 'uniq_code' ) ) {
  25             $dbh->do(q{
  26                 ALTER TABLE language_rfc4646_to_iso639
  27                 ADD UNIQUE KEY uniq_code (rfc4646_subtag, iso639_2_code)
  28             });
  29         };
  30
  31         $dbh->do(q{
  32             INSERT IGNORE INTO language_subtag_registry (subtag, type, description, added)
  33             VALUES
  34             ('et', 'language', 'Estonian', now()),
  35             ('lv', 'language', 'Latvian', now()),
  36             ('lt', 'language', 'Lithuanian', now()),
  37             ('iu', 'language', 'Inuktitut', now()),
  38             ('ik', 'language', 'Inupiaq', now())
  39         });
  40
  41         $dbh->do(q{
  42             INSERT IGNORE INTO language_descriptions (subtag, type, lang, description)
  43             VALUES
  44             ('et', 'language', 'en', 'Estonian'),
  45             ('et', 'language', 'et', 'Eesti'),
  46             ('lv', 'language', 'en', 'Latvian'),
  47             ('lv', 'language', 'lv', 'Latvija'),
  48             ('lt', 'language', 'en', 'Lithuanian'),
  49             ('lt', 'language', 'lt', 'Lietuvių'),
  50             ('iu', 'language', 'en', 'Inuktitut'),
  51             ('iu', 'language', 'iu', 'ᐃᓄᒃᑎᑐᑦ'),
  52             ('ik', 'language', 'en', 'Inupiaq'),
  53             ('ik', 'language', 'ik', 'Iñupiaq')
  54         });
  55
  56         $dbh->do(q{
  57             INSERT IGNORE INTO language_rfc4646_to_iso639 (rfc4646_subtag, iso639_2_code)
  58             VALUES
  59             ('et', 'est'),
  60             ('lv', 'lav'),
  61             ('lt', 'lit'),
  62             ('iu', 'iku'),
  63             ('ik', 'ipk')
  64         });
  65     },
  66 }