#!wml
<:
	# Change both.  The array is ordered (for pages like translation status).
	# The order of flags in header is based on sort order of language name.
	my @LANGUAGES = qw{en de it fr se};
	my %LANGUAGES = (
		'en' => "English",
		'de' => "Deutsch",
		'it' => "Italiano",
		'fr' => "Fran&ccedil;ais",
		'se' => "Svenska",
		);
	our $WML_SRC_FILENAME;

	# sanity check.
	for my $lang (@LANGUAGES) {
		die "Language $lang defined in \@LANGUAGES but not in \%LANGUAGES in perl-globals"
			unless exists $LANGUAGES{$lang};
	};
	die "\@LANGUAGES and \%LANGUAGES have a different number of elements in perl-globals"
		unless (scalar @LANGUAGES == scalar keys %LANGUAGES);
:>