|
Lines 8-13
return {
Link Here
|
| 8 |
my $dbh = $args->{dbh}; |
8 |
my $dbh = $args->{dbh}; |
| 9 |
|
9 |
|
| 10 |
if( !unique_key_exists( 'language_subtag_registry', 'uniq_lang' ) ) { |
10 |
if( !unique_key_exists( 'language_subtag_registry', 'uniq_lang' ) ) { |
|
|
11 |
$dbh->do(q{ |
| 12 |
DELETE a |
| 13 |
FROM language_subtag_registry a |
| 14 |
WHERE id IN ( |
| 15 |
SELECT id FROM ( |
| 16 |
SELECT MIN(id) AS id |
| 17 |
FROM language_subtag_registry b |
| 18 |
GROUP BY subtag, type |
| 19 |
HAVING COUNT(*) > 1 |
| 20 |
) c |
| 21 |
); |
| 22 |
}); |
| 11 |
$dbh->do(q{ |
23 |
$dbh->do(q{ |
| 12 |
ALTER TABLE language_subtag_registry |
24 |
ALTER TABLE language_subtag_registry |
| 13 |
ADD UNIQUE KEY uniq_lang (subtag, type) |
25 |
ADD UNIQUE KEY uniq_lang (subtag, type) |
| 14 |
- |
|
|