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 |
|
12 |
$dbh->do(q{ |
13 |
DELETE a |
14 |
FROM language_subtag_registry AS a, language_subtag_registry AS b |
15 |
WHERE a.id < b.id |
16 |
AND a.subtag IS NOT NULL |
17 |
AND a.subtag=b.subtag |
18 |
AND a.type=b.type |
19 |
}); |
11 |
$dbh->do(q{ |
20 |
$dbh->do(q{ |
12 |
ALTER TABLE language_subtag_registry |
21 |
ALTER TABLE language_subtag_registry |
13 |
ADD UNIQUE KEY uniq_lang (subtag, type) |
22 |
ADD UNIQUE KEY uniq_lang (subtag, type) |
14 |
- |
|
|