As told by Josip, previous patch was inaccurate. Here is a better one.
Note that I renamed %langs to %rellangs for clarity (%langs already
exist in languages.wml) but this change is not mandatory.

Denis
Index: languages.wml
===================================================================
RCS file: /cvs/webwml/webwml/english/template/debian/languages.wml,v
retrieving revision 1.88
diff -u -r1.88 languages.wml
--- languages.wml       2001/07/13 22:11:53     1.88
+++ languages.wml       2001/07/14 21:49:48
@@ -62,7 +62,6 @@
 my %langs = ( english    => "en",
               arabic     => "ar",
               catalan    => "ca",
-              czech      => "cs",
               danish     => "da",
               german     => "de",
               hellas     => "el",
@@ -81,7 +80,6 @@
               portuguese => "pt",
               romanian   => "ro",
               russian    => "ru",
-              slovak     => "sk",
               swedish    => "sv",
               turkish    => "tr",
               chinese    => "zh",
Index: release.wml
===================================================================
RCS file: /cvs/webwml/webwml/english/template/debian/release.wml,v
retrieving revision 1.14
diff -u -r1.14 release.wml
--- release.wml 2001/07/03 07:35:22     1.14
+++ release.wml 2001/07/14 21:49:48
@@ -1,6 +1,22 @@
 #use wml::std::tags
 <perl>
 <protect pass=2>
+
+#    Available languages for installation manuals
+my %rellangs = ( english    => "en",
+                 czech      => "cs",
+                 german     => "de",
+                 spanish    => "es",
+                 finnish    => "fi",
+                 french     => "fr",
+                 croatian   => "hr",
+                 japanese   => "ja",
+                 polish     => "pl",
+                 portuguese => "pt",
+                 russian    => "ru",
+                 slovak     => "sk",
+);
+
 #
 # emits an bunch of li (list items)
 #   assumes %arches and $indirect_object_conjoiner
@@ -153,9 +169,9 @@
            foreach $lang (@langs) {
                next if ($ext eq "pdf" && $lang eq "japanese");
                next if ($ext eq "pdf" && $lang eq "russian");
-               $file_version = "$arch/$file." . $langs{$lang} . ".$ext";
+               $file_version = "$arch/$file." . $rellangs{$lang} . ".$ext";
                if ( $file =~ /release-notes/ && $ext eq "html" ) {
-                  $file_version = "$arch/$file/index." . $langs{$lang} . 
".$ext";
+                  $file_version = "$arch/$file/index." . $rellangs{$lang} . 
".$ext";
                }
                if (! $check_if_file_exists || 
                     -f "$(HTMLDIR)/releases/$release/$file_version") {

Reply via email to