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 |
- |
|
|