installer/data/mysql/db_revs/211200014.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         $dbh->do(q{
  11             INSERT IGNORE INTO language_subtag_registry( subtag, type, description, added)
  12             VALUES ( 'yi', 'language', 'Yiddish', NOW() );
  13         });
  14
  15         $dbh->do(q{
  16             INSERT IGNORE INTO language_rfc4646_to_iso639(rfc4646_subtag,iso639_2_code)
  17             VALUES ( 'yi','yid');
  18         });
  19
  20         $dbh->do(q{
  21             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  22             VALUES ( 'yi', 'language', 'de', 'Jiddisch');
  23         });
  24
  25         $dbh->do(q{
  26             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  27             VALUES ( 'yi', 'language', 'en', 'Yiddish');
  28         });
  29
  30         $dbh->do(q{
  31             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  32             VALUES ( 'yi', 'language', 'es', 'Yidis');
  33         });
  34
  35         $dbh->do(q{
  36             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  37             VALUES ( 'yi', 'language', 'fr', 'Yiddish');
  38         });
  39
  40         $dbh->do(q{
  41             INSERT IGNORE INTO language_descriptions(subtag, type, lang, description)
  42             VALUES ( 'yi', 'language', 'yi', 'יידיש');
  43         });
  44
  45         $dbh->do(q{
  46             INSERT IGNORE INTO language_script_mapping(language_subtag,script_subtag)
  47             VALUES ( 'yi', 'Hebr');
  48         });
  49     },
  50 };