Browse code

we do not need ar-se

Runa A. Sandvik authored on10/09/2011 18:54:41
Showing1 changed files
... ...
@@ -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 on21/07/2011 17:40:41
Showing1 changed files
... ...
@@ -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 on21/07/2011 17:20:43
Showing1 changed files
... ...
@@ -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 on09/07/2010 03:55:22
Showing1 changed files
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
+:>