]> git.deb.at Git - deb/packages.git/blob - lib/Packages/I18N/LanguageNames.pm
Disable gettext translations
[deb/packages.git] / lib / Packages / I18N / LanguageNames.pm
1 # Taken from the webwml CVS tree (english/templates/language_names.wml)
2
3 package Packages::I18N::LanguageNames;
4
5 use strict;
6 use warnings;
7
8 use Exporter;
9 use Packages::I18N::Locale;
10
11 our @ISA = qw( Exporter );
12 our @EXPORT = qw( get_language_name get_all_languages );
13
14 my %ctrans = (
15         ar    => N_("Arabic"),
16         fi    => N_("Finnish"),
17         hr    => N_("Croatian"),
18         da    => N_("Danish"),
19         nl    => N_("Dutch"),
20         en    => N_("English"),
21         fa    => N_("Persian"),
22         fr    => N_("French"),
23         de    => N_("German"),
24         hy    => N_("Armenian"),
25         it    => N_("Italian"),
26         ja    => N_("Japanese"),
27         ko    => N_("Korean"),
28         es    => N_("Spanish"),
29         pt    => N_("Portuguese"),
30         pt_BR => N_("Portuguese (Brasilia)"),
31         pt_PT => N_("Portuguese (Portugal)"),
32         zh    => N_("Chinese"),
33         zh_CN => N_("Chinese (China)"),
34         zh_HK => N_("Chinese (Hong Kong)"),
35         zh_TW => N_("Chinese (Taiwan)"),
36         sv    => N_("Swedish"),
37         sv_SE => N_("Swedish"),
38         pl    => N_("Polish"),
39         'no'  => N_("Norwegian"),
40         'tr'    => N_("Turkish"),
41         ru    => N_("Russian"),
42         cs    => N_("Czech"),
43         eo    => N_("Esperanto"),
44         hu    => N_("Hungarian"),
45         ro    => N_("Romanian"),
46         sk    => N_("Slovak"),
47         el    => N_("Greek"),
48         ca    => N_("Catalan"),
49         lt    => N_("Lithuanian"),
50         sl    => N_("Slovene"),
51         bg    => N_("Bulgarian"),
52         uk    => N_("Ukrainian"),
53 );
54
55 sub get_language_name {
56     return $ctrans{$_[0]};
57 }
58
59 sub get_all_languages {
60     return %ctrans;
61 }
62
63 1;