Language sort for install manuals

[barbier@linuxfr.org (Denis Barbier)]

Hi,

this patch seems to sort languages according to current language in
  http://www.debian.org/releases/testing/installmanual
As I am not sure it works for all languages, it has not been committed yet.

Denis

Index: release.wml
===================================================================
RCS file: /cvs/webwml/webwml/english/template/debian/release.wml,v
retrieving revision 1.19
diff -u -r1.19 release.wml
--- release.wml	2002/02/12 16:11:43	1.19
+++ release.wml	2002/04/18 22:57:19
@@ -1,4 +1,5 @@
 #use wml::std::tags
+#use wml::debian::languages
 <perl>
 <protect pass=2>
 #
@@ -111,7 +112,7 @@
 #
 sub permute_as_matrix {
     my($file, @langs) = @_;
-    my($ext, $arch, $lang, @cur_dir, $release);
+    my($ext, $arch, $lang, $l10nlang, @cur_dir, $release);
     my $altcolor = 'white';
     my $ctr = 0;
     my $check_if_file_exists = 0;
@@ -124,6 +125,10 @@
 
     if ($file =~ /release-notes/) { delete $formats{'pdf'} } else { $formats{'pdf'} = "PDF" };
 
+    my %sorted_langs = ();
+    foreach (@langs) {
+      $sorted_langs{$trans{$(CUR_ISO_LANG)}{$_}} = $_;
+    }
     foreach $arch (sort keys %arches) {
 	$ctr++;
 	my $first = 1;
@@ -153,7 +158,8 @@
 	    print "  <td align=\"left\">" . $formats{$ext} . "</td>\n";
 	    # permute over languages
 	    print "  <td>";
-	    foreach $lang (sort @langs) {
+	    foreach $l10nlang (sort langcmp keys %sorted_langs) {
+	        $lang = $sorted_langs{$l10nlang};
 	        next if ($ext eq "pdf" && $lang eq "japanese");
 	        next if ($ext eq "pdf" && $lang eq "russian");
 	        $file_version = "$arch/$file." . $langsinstall{$lang} . ".$ext";