|
Lines 342-349
sub _build_languages_arrayref {
Link Here
|
| 342 |
push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref ); |
342 |
push ( @{ $language_groups->{$language_subtags_hashref->{language}} }, $language_subtags_hashref ); |
| 343 |
} |
343 |
} |
| 344 |
# $key is a language subtag like 'en' |
344 |
# $key is a language subtag like 'en' |
| 345 |
while( my ($key, $value) = each %$language_groups) { |
|
|
| 346 |
|
345 |
|
|
|
346 |
my %idx = map { $enabled_languages->[$_] => $_ } reverse 0 .. @$enabled_languages-1; |
| 347 |
my @ordered_keys = sort { |
| 348 |
my $aa = $language_groups->{$a}->[0]->{rfc4646_subtag}; |
| 349 |
my $bb = $language_groups->{$b}->[0]->{rfc4646_subtag}; |
| 350 |
( exists $idx{$aa} and exists $idx{$bb} and ( $idx{$aa} cmp $idx{$bb} ) ) |
| 351 |
|| ( exists $idx{$aa} and exists $idx{$bb} ) |
| 352 |
|| exists $idx{$bb} |
| 353 |
} keys %$language_groups; |
| 354 |
|
| 355 |
for my $key ( @ordered_keys ) { |
| 356 |
my $value = $language_groups->{$key}; |
| 347 |
# is this language group enabled? are any of the languages within it enabled? |
357 |
# is this language group enabled? are any of the languages within it enabled? |
| 348 |
my $enabled; |
358 |
my $enabled; |
| 349 |
for my $enabled_language (@enabled_languages) { |
359 |
for my $enabled_language (@enabled_languages) { |
| 350 |
- |
|
|