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