878fd97a2cfed3d95efd2fd9d420248d5d6ade75
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

1) #!wml
2) <:
Peter Palfrader Add russian translation

Peter Palfrader authored 18 years ago

3) 	# Change both.  The array is ordered (for pages like translation status, order of flags, etc).
Roger Dingledine and make it make the espano...

Roger Dingledine authored 18 years ago

4) 	my @LANGUAGES = qw{de en es fr it ru se};
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

5) 	my %LANGUAGES = (
6) 		'en' => "English",
7) 		'de' => "Deutsch",
Roger Dingledine and make it make the espano...

Roger Dingledine authored 18 years ago

8) 		'es' => "Espa&ntilde;ol",
Roger Dingledine tell the wmi engine about F...

Roger Dingledine authored 18 years ago

9) 		'it' => "Italiano",
Peter Palfrader Add sanity check for define...

Peter Palfrader authored 18 years ago

10) 		'fr' => "Fran&ccedil;ais",
Roger Dingledine this is a better hack. stil...

Roger Dingledine authored 18 years ago

11) 		'se' => "Svenska",
Peter Palfrader Add russian translation

Peter Palfrader authored 18 years ago

12) 		'ru' => "&#1056;&#1091;&#1089;&#1089;&#1082;&#1080;&#1081;&nbsp;(Russkij)",
Peter Palfrader Oops, forgot to checkin thi...

Peter Palfrader authored 18 years ago

13) 		);
Peter Palfrader Make translation status mor...

Peter Palfrader authored 18 years ago

14) 	our $WML_SRC_FILENAME;
Peter Palfrader Add sanity check for define...

Peter Palfrader authored 18 years ago

15) 
16) 	# sanity check.
17) 	for my $lang (@LANGUAGES) {
18) 		die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
19) 			unless exists $LANGUAGES{$lang};
20) 	};
21) 	die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
22) 		unless (scalar @LANGUAGES == scalar keys %LANGUAGES);