Lines 205-210
sub getLanguages {
Link Here
|
205 |
my $isFiltered = shift; |
205 |
my $isFiltered = shift; |
206 |
|
206 |
|
207 |
my @languages_loop; |
207 |
my @languages_loop; |
|
|
208 |
my $languages_hash; |
208 |
my $dbh=C4::Context->dbh; |
209 |
my $dbh=C4::Context->dbh; |
209 |
my $default_language = 'en'; |
210 |
my $default_language = 'en'; |
210 |
my $current_language = $default_language; |
211 |
my $current_language = $default_language; |
Lines 251-259
sub getLanguages {
Link Here
|
251 |
} |
252 |
} |
252 |
# Do not push unless valid iso639-2 code |
253 |
# Do not push unless valid iso639-2 code |
253 |
if ( $language_subtag_registry->{ iso639_2_code } and ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) ) { |
254 |
if ( $language_subtag_registry->{ iso639_2_code } and ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) ) { |
254 |
push @languages_loop, $language_subtag_registry; |
255 |
$languages_hash->{$language_subtag_registry->{ iso639_2_code }} = $language_subtag_registry; |
|
|
256 |
push @languages_loop, $language_subtag_registry if not $language_list; |
255 |
} |
257 |
} |
256 |
} |
258 |
} |
|
|
259 |
if ($language_list) { |
260 |
# sort @languages_loop into order defined in AdvancedSearchLanguages preference |
261 |
my @adv_search_languages = split /[,|]+/, $language_list; |
262 |
foreach my $adv_search_lang (@adv_search_languages){ |
263 |
push @languages_loop, $languages_hash->{$adv_search_lang} if $languages_hash->{$adv_search_lang}; |
264 |
} |
265 |
} |
266 |
|
257 |
return \@languages_loop; |
267 |
return \@languages_loop; |
258 |
} |
268 |
} |
259 |
|
269 |
|
260 |
- |
|
|