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