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