installer/data/mysql/atomicupdate/bug_34328.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "34328",
   5     description => "Add Scottish Gaelic to recognised languages",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         # Unique key on subtag + code.. use INSERT IGNORE
  11         $dbh->do(
  12             q{
  13             INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
  14             VALUES ( 'gd','gla' )
  15         }
  16         );
  17
  18         # Unique key on subtag + type.. use INSERT IGNORE
  19         $dbh->do(
  20             q{
  21             INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
  22             VALUES ( 'gd', 'language', 'Scottish Gaelic', NOW() )
  23         }
  24         );
  25
  26         # Unique key on subtag + type + lang.. use INSERT IGNORE
  27         $dbh->do(
  28             q{
  29             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  30             VALUES ( 'gd', 'language', 'en', 'Scottish Gaelic')
  31         }
  32         );
  33
  34         $dbh->do(
  35             q{
  36             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  37             VALUES ( 'gd', 'language', 'en_GB', 'Scottish Gaelic')
  38         }
  39         );
  40
  41         $dbh->do(
  42             q{
  43             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  44             VALUES ( 'gd', 'language', 'gd', 'Gàidhlig')
  45         }
  46         );
  47
  48         $dbh->do(
  49             q{
  50             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  51             VALUES ( 'gd', 'language', 'fr', 'Gaélique écossais')
  52         }
  53         );
  54
  55         $dbh->do(
  56             q{
  57             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  58             VALUES ( 'gd', 'language', 'de', 'Schottisch-Gälisch')
  59         }
  60         );
  61
  62         $dbh->do(
  63             q{
  64             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  65             VALUES ( 'gd', 'language', 'pl', 'Język szkocki gaelicki')
  66         }
  67         );
  68
  69         say $out "Added new language 'Scottish Gaelic'";
  70     },
  71 };