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