[Koha-cvs] koha/admin systempreferences.pl [rel_3_0]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Joshua Ferraro <kados>	07/02/20 06:03:57

Modified files:
	admin          : systempreferences.pl 

Log message:
	remove GetLanguages, replace with getTranslatedLanguages

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/admin/systempreferences.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.34.2.18&r2=1.34.2.19

Patches:
Index: systempreferences.pl
===================================================================
RCS file: /sources/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.34.2.18
retrieving revision 1.34.2.19
diff -u -b -r1.34.2.18 -r1.34.2.19
--- systempreferences.pl	29 Jan 2007 16:29:07 -0000	1.34.2.18
+++ systempreferences.pl	20 Feb 2007 06:03:57 -0000	1.34.2.19
@@ -45,6 +45,7 @@
 use C4::Auth;
 use C4::Context;
 use C4::Koha;
+use C4::Languages;
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Context;
@@ -360,11 +361,11 @@
             $currently_selected_languages->{$language}=1;
             $counter++;
         }
-        foreach my $language (GetLanguages()) {
-            next if $language eq 'images';
+        foreach my $language (getTranslatedLanguages()) {
             my $selected='0';
-            next if $currently_selected_languages->{$language};
-            push @options, { option => $language, counter => $counter };
+            next if $currently_selected_languages->{$language->{'language_code'}};
+			#FIXME: could add language_name and language_locale_name for better display
+            push @options, { option => $language->{'language_code'}, counter => $counter };
             $counter++;
         }
     } else {