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 250-258
sub getLanguages {
Link Here
|
250 |
} |
251 |
} |
251 |
} |
252 |
} |
252 |
if ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) { |
253 |
if ( !$language_list || index ( $language_list, $language_subtag_registry->{ iso639_2_code } ) >= 0) { |
253 |
push @languages_loop, $language_subtag_registry; |
254 |
$languages_hash->{$language_subtag_registry->{ iso639_2_code }} = $language_subtag_registry; |
|
|
255 |
push @languages_loop, $language_subtag_registry if not $language_list; |
254 |
} |
256 |
} |
255 |
} |
257 |
} |
|
|
258 |
if ($language_list) { |
259 |
# sort @languages_loop into order defined in AdvancedSearchLanguages preference |
260 |
my @adv_search_languages = split /[,|]+/, $language_list; |
261 |
foreach my $adv_search_lang (@adv_search_languages){ |
262 |
push @languages_loop, $languages_hash->{$adv_search_lang} if $languages_hash->{$adv_search_lang}; |
263 |
} |
264 |
} |
265 |
|
256 |
return \@languages_loop; |
266 |
return \@languages_loop; |
257 |
} |
267 |
} |
258 |
|
268 |
|
259 |
- |
|
|