english/international/index.data

# This file shouldn't be translated because it's language independent.
# It gets included in index.wml.

#use wml::debian::languages

# proper sorting implementation courtesy of Denis Barbier
<perl>
my %urls = (
    chinese    => "Chinese/",
    croatian   => "Croatian/",
    danish     => "Danish/",
    finnish    => "Finnish",
    french     => "French",
    german     => "German/",
# commented out since page doesn't exist yet.
# hellas => "Hellenic",
    hungarian  => "Hungarian",
    italian    => "Italian",
    japanese   => "Japanese",
    korean     => "Korean",
    norwegian  => "Norwegian",
    polish     => "Polish/",
    portuguese => "Portuguese",
    romanian   => "Romanian",
    russian    => "Russian",
    spanish    => "Spanish",
    swedish    => "Swedish/",
    turkish    => "Turkish"
);
my %sorted_urls = ();
foreach $u (keys %urls) {
    $sorted_urls{$trans{$CUR_ISO_LANG}{$u}} = $urls{$u};
}
print "<ul>\n";
foreach $u (sort langcmp keys %sorted_urls) {
  print "<li><a href=\"$sorted_urls{$u}\">".$u."</a>\n";
}
print "</ul>\n";
</perl>
1	# This file shouldn't be translated because it's language independent.
2	# It gets included in index.wml.
3
4	#use wml::debian::languages
5
6	# proper sorting implementation courtesy of Denis Barbier
7	<perl>
8	my %urls = (
9	chinese => "Chinese/",
10	croatian => "Croatian/",
11	danish => "Danish/",
12	finnish => "Finnish",
13	french => "French",
14	german => "German/",
15	# commented out since page doesn't exist yet.
16	# hellas => "Hellenic",
17	hungarian => "Hungarian",
18	italian => "Italian",
19	japanese => "Japanese",
20	korean => "Korean",
21	norwegian => "Norwegian",
22	polish => "Polish/",
23	portuguese => "Portuguese",
24	romanian => "Romanian",
25	russian => "Russian",
26	spanish => "Spanish",
27	swedish => "Swedish/",
28	turkish => "Turkish"
29	);
30	my %sorted_urls = ();
31	foreach $u (keys %urls) {
32	$sorted_urls{$trans{$CUR_ISO_LANG}{$u}} = $urls{$u};
33	}
34	print "<ul>\n";
35	foreach $u (sort langcmp keys %sorted_urls) {
36	print "<li><a href=\"$sorted_urls{$u}\">".$u."</a>\n";
37	}
38	print "</ul>\n";
39	</perl>