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

Return to bug 14912