GitList
Browse code

we do not need ar-se

Runa A. Sandvik authored on 10/09/2011 18:54:41
Showing 1 changed files
include/perl-globals.wmi
History View file @ 932af2743
... ... 
@@ -2,10 +2,9 @@
2 2 
 <:
3 3 
 	# Change both.  The array is ordered (for pages like translation status, order of flags, etc).
4 4
5 
-	my @LANGUAGES = qw{ar ar-se bms cy da de en es et fa fi fr hu id it ja ko nl no pl pt pt-br ru se tr vn zh-cn};
5 
+	my @LANGUAGES = qw{ar bms cy da de en es et fa fi fr hu id it ja ko nl no pl pt pt-br ru se tr vn zh-cn};
6 6 
 	my %LANGUAGES = (
7 7 
 		'ar' => "&#1593;&#1585;&#1576;&#1610;&#1577;&nbsp;(Arabiya)",
8 
-		'ar-se' => "Arabic (Saudi Arabia)",
9 8 
 		'bms' => "Burmese",
10 9 
 		'cy' => "Welsh",
11 10 
 		'da' => "Danish",
Browse code

updated perl-globals to properly include languages

Runa A. Sandvik authored on 21/07/2011 17:40:41
Showing 1 changed files
include/perl-globals.wmi
History View file @ e42b14971
... ... 
@@ -5,7 +5,10 @@
5 5 
 	my @LANGUAGES = qw{ar ar-se bms cy da de en es et fa fi fr hu id it ja ko nl no pl pt pt-br ru se tr vn zh-cn};
6 6 
 	my %LANGUAGES = (
7 7 
 		'ar' => "&#1593;&#1585;&#1576;&#1610;&#1577;&nbsp;(Arabiya)",
8 
+		'ar-se' => "Arabic (Saudi Arabia)",
8 9 
 		'bms' => "Burmese",
10 
+		'cy' => "Welsh",
11 
+		'da' => "Danish",
9 12 
 		'de' => "Deutsch",
10 13 
 		'en' => "English",
11 14 
 		'es' => "espa&ntilde;ol",
... ... 
@@ -13,6 +16,8 @@
13 16 
 		'fa' => "&#1601;&#1575;&#1585;&#1587;&#1740; (F&#257;rs&#299;)",
14 17 
 		'fi' => "suomi",
15 18 
 		'fr' => "fran&ccedil;ais",
19 
+		'hu' => "Hungarian",
20 
+		'id' => "Bahasa Indonesia",
16 21 
 		'it' => "Italiano",
17 22 
 		'ja' => "&#26085;&#26412;&#35486;&nbsp;(Nihongo)",
18 23 
 		'ko' => "&#54620;&#44397;&#50612;&nbsp;(Hangul)",
... ... 
@@ -20,9 +25,11 @@
20 25 
 		'no' => "norsk",
21 26 
 		'pl' => "polski",
22 27 
 		'pt' => "Portugu&ecirc;s",
28 
+		'pt-br' => "Portuguese (Brazil)",
23 29 
 		'ru' => "&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081;&nbsp;(Russkij)",
24 30 
 		'se' => "svenska",
25 31 
 		'tr' => "T&uuml;rk&ccedil;e",
32 
+		'vn' => "Vietnamese",
26 33 
 		'zh-cn' => "&#20013;&#25991;(&#31616;) (Simplified Chinese)",
27 34
28 35 
 		);
Browse code

update perl-globals.wmi to include more languages

Runa A. Sandvik authored on 21/07/2011 17:20:43
Showing 1 changed files
include/perl-globals.wmi
History View file @ adbd562b9
... ... 
@@ -2,7 +2,7 @@
2 2 
 <:
3 3 
 	# Change both.  The array is ordered (for pages like translation status, order of flags, etc).
4 4
5 
-	my @LANGUAGES = qw{ar bms de en es et fa fi fr it ja ko nl no pl pt ru se tr zh-cn};
5 
+	my @LANGUAGES = qw{ar ar-se bms cy da de en es et fa fi fr hu id it ja ko nl no pl pt pt-br ru se tr vn zh-cn};
6 6 
 	my %LANGUAGES = (
7 7 
 		'ar' => "&#1593;&#1585;&#1576;&#1610;&#1577;&nbsp;(Arabiya)",
8 8 
 		'bms' => "Burmese",
Browse code

first cut of the new, shiny tor website as wml.

Andrew Lewman authored on 09/07/2010 03:55:22
Showing 1 changed files
include/perl-globals.wmi
History View file @ 2a9aaa802
1 1 
new file mode 100644
... ... 
@@ -0,0 +1,40 @@
1 
+#!wml
2 
+<:
3 
+	# Change both.  The array is ordered (for pages like translation status, order of flags, etc).
4 
+
5 
+	my @LANGUAGES = qw{ar bms de en es et fa fi fr it ja ko nl no pl pt ru se tr zh-cn};
6 
+	my %LANGUAGES = (
7 
+		'ar' => "&#1593;&#1585;&#1576;&#1610;&#1577;&nbsp;(Arabiya)",
8 
+		'bms' => "Burmese",
9 
+		'de' => "Deutsch",
10 
+		'en' => "English",
11 
+		'es' => "espa&ntilde;ol",
12 
+		'et' => "Estonian",
13 
+		'fa' => "&#1601;&#1575;&#1585;&#1587;&#1740; (F&#257;rs&#299;)",
14 
+		'fi' => "suomi",
15 
+		'fr' => "fran&ccedil;ais",
16 
+		'it' => "Italiano",
17 
+		'ja' => "&#26085;&#26412;&#35486;&nbsp;(Nihongo)",
18 
+		'ko' => "&#54620;&#44397;&#50612;&nbsp;(Hangul)",
19 
+		'nl' => "Nederlands",
20 
+		'no' => "norsk",
21 
+		'pl' => "polski",
22 
+		'pt' => "Portugu&ecirc;s",
23 
+		'ru' => "&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081;&nbsp;(Russkij)",
24 
+		'se' => "svenska",
25 
+		'tr' => "T&uuml;rk&ccedil;e",
26 
+		'zh-cn' => "&#20013;&#25991;(&#31616;) (Simplified Chinese)",
27 
+
28 
+		);
29 
+	our $WML_SRC_FILENAME;
30 
+	our $WML_SRC_BASENAME;
31 
+	our $WML_SRC_DIRNAME;
32 
+
33 
+	# sanity check.
34 
+	for my $lang (@LANGUAGES) {
35 
+		die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
36 
+			unless exists $LANGUAGES{$lang};
37 
+	};
38 
+	die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
39 
+		unless (scalar @LANGUAGES == scalar keys %LANGUAGES);
40 
+:>