installer/data/mysql/atomicupdate/bug_29596.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "29596",
   5     description => "Add Yiddish language",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10
  11         $dbh->do(q{
  12             INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
  13             VALUES ( 'yi', 'language', 'Yiddish', NOW() );
  14         });
  15
  16         $dbh->do(q{
  17             INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
  18             VALUES ( 'yi','yid');
  19         });
  20
  21         $dbh->do(q{
  22             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  23             VALUES ( 'yi', 'language', 'de', 'Jiddisch');
  24         });
  25
  26         $dbh->do(q{
  27             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  28             VALUES ( 'yi', 'language', 'en', 'Yiddish');
  29         });
  30
  31         $dbh->do(q{
  32             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  33             VALUES ( 'yi', 'language', 'es', 'Yidis');
  34         });
  35
  36         $dbh->do(q{
  37             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  38             VALUES ( 'yi', 'language', 'fr', 'Yiddish');
  39         });
  40
  41         $dbh->do(q{
  42             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  43             VALUES ( 'yi', 'language', 'yi', 'יידיש');
  44         });
  45
  46         $dbh->do(q{
  47             INSERT IGNORE INTO language_script_mapping(language_subtag,script_subtag)
  48             VALUES ( 'yi', 'Hebr');
  49         });
  50     },
  51 }