View | Details | Raw Unified | Return to bug 14912
Collapse All | Expand All

(-)a/C4/Languages.pm (-2 / +11 lines)
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
- 

Return to bug 14912