@@ -, +, @@ --- C4/Languages.pm | 43 +------------------------------------------ 1 file changed, 1 insertion(+), 42 deletions(-) --- a/C4/Languages.pm +++ a/C4/Languages.pm @@ -34,7 +34,6 @@ eval { import Memoize::Memcached qw(memoize_memcached); memoize_memcached('getTranslatedLanguages', memcached => C4::Context->memcached); - memoize_memcached('getFrameworkLanguages' , memcached => C4::Context->memcached); memoize_memcached('getAllLanguages', memcached => C4::Context->memcached); } }; @@ -44,12 +43,11 @@ BEGIN { require Exporter; @ISA = qw(Exporter); @EXPORT = qw( - &getFrameworkLanguages &getTranslatedLanguages &getLanguages &getAllLanguages ); - @EXPORT_OK = qw(getSearchLanguages getLanguages_iso getFrameworkLanguages getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage); + @EXPORT_OK = qw(getSearchLanguages getLanguages_iso getTranslatedLanguages getAllLanguages getLanguages get_bidi regex_lang_subtags language_get_description accept_language getlanguage); $DEBUG = 0; } @@ -67,45 +65,6 @@ use C4::Languages; =head1 FUNCTIONS -=head2 getFrameworkLanguages - -Returns a reference to an array of hashes: - - my $languages = getFrameworkLanguages(); - for my $language(@$languages) { - print "$language->{language_code}\n"; # language code in iso 639-2 - print "$language->{language_name}\n"; # language name in native script - print "$language->{language_locale_name}\n"; # language name in current locale - } - -=cut - -sub getFrameworkLanguages { - # get a hash with all language codes, names, and locale names - my $all_languages = getAllLanguages(); - my @languages; - - # find the available directory names - my $dir=C4::Context->config('intranetdir')."/installer/data/"; - opendir (MYDIR,$dir); - my @listdir= grep { !/^\.|CVS/ && -d "$dir/$_"} readdir(MYDIR); - closedir MYDIR; - - # pull out all data for the dir names that exist - for my $dirname (@listdir) { - for my $language_set (@$all_languages) { - - if ($dirname eq $language_set->{language_code}) { - push @languages, { - 'language_code'=>$dirname, - 'language_description'=>$language_set->{language_description}, - 'native_descrition'=>$language_set->{language_native_description} } - } - } - } - return \@languages; -} - =head2 getSearchLanguages Get selection of languages codes and iso639_2. --