[LON-CAPA-cvs] cvs: modules /gerd/newlanguage final.tab finaltab.pl

[www]

www		Sun May  4 15:40:52 2003 EDT

  Modified files:              
    /modules/gerd/newlanguage	final.tab finaltab.pl 
  Log:
  Corrections/cleanup.
  
  
Index: modules/gerd/newlanguage/final.tab
diff -u modules/gerd/newlanguage/final.tab:1.1 modules/gerd/newlanguage/final.tab:1.2
--- modules/gerd/newlanguage/final.tab:1.1	Sun May  4 15:30:45 2003
+++ modules/gerd/newlanguage/final.tab	Sun May  4 15:40:52 2003
@@ -76,9 +76,8 @@
 slamiso			lam	ISO	Lamba	
 spauiso			pau	ISO	Palauan	
 smakiso			mak	ISO	Makasar	
-sineiso			ine	ISO	Interlingue	
 sduiso	nl		dut/nla	ISO	Dutch	
-sduisoBE	nl	BE	dut/nla	ISO	Belgian-Dutch	
+sduisoBE	nl	BE	dut/nla	ISO	Belgian-Dutch (Vlaams)	
 sineiso			ine	ISO	Indo-European (Other)	
 snepiso	ne		nep	ISO	Nepali	
 sceliso			cel	ISO	Celtic (Other)	
@@ -106,14 +105,14 @@
 sspisoAR	es	AR	esl/spa	ISO	Argentine	
 sspisoCO	es	CO	esl/spa	ISO	Colombian	
 sspisoCU	es	CU	esl/spa	ISO	Cuba	
-sspisoDO	es	DO	esl/spa	ISO	Dominican	
+sspisoDO	es	DO	esl/spa	ISO	Dominican Republic	
 sspisoGT	es	GT	esl/spa	ISO	Guatemala	
 sspisoHT	es	HT	esl/spa	ISO	Haiti	
 sspisoMX	es	MX	esl/spa	ISO	Mexican	
 sspisoNI	es	NI	esl/spa	ISO	Nicaragua	
 sspisoPE	es	PE	esl/spa	ISO	Peruvian	
-sspisoPR	es	PR	esl/spa	ISO	Puerto	
-sspisoSV	es	SV	esl/spa	ISO	El	
+sspisoPR	es	PR	esl/spa	ISO	Puerto Rico	
+sspisoSV	es	SV	esl/spa	ISO	El Salvador	
 sluoiso			luo	ISO	Luo (Kenya and Tanzania)	
 scauiso			cau	ISO	Caucasian (Other)	
 smohiso			moh	ISO	Mohawk	
@@ -236,7 +235,7 @@
 sbeliso	be		bel	ISO	Byelorussian	
 suzbiso	uz		uzb	ISO	Uzbek	
 sfriso	fr		fra/fre	ISO	French	
-sfrisoBE	fr	BE	fra/fre	ISO	Belgian-French	
+sfrisoBE	fr	BE	fra/fre	ISO	Belgian-French (Wallon)	
 sfrisoCA	fr	CA	fra/fre	ISO	Canadien-French	
 sfrisoCH	fr	CH	fra/fre	ISO	Swiss-French	
 sfrisoGP	fr	GP	fra/fre	ISO	Guadeloupe	
Index: modules/gerd/newlanguage/finaltab.pl
diff -u modules/gerd/newlanguage/finaltab.pl:1.1 modules/gerd/newlanguage/finaltab.pl:1.2
--- modules/gerd/newlanguage/finaltab.pl:1.1	Sun May  4 15:30:45 2003
+++ modules/gerd/newlanguage/finaltab.pl	Sun May  4 15:40:52 2003
@@ -4,7 +4,7 @@
     ($code,$sub,$lang)=($line=~/^(\w+)\-(\w+)\s+(.+)$/);
     if ($sub) {
 	$code=~tr/A-Z/a-z/;
-	$multi{$code}.=$sub." ".$lang."\n";
+	$multi{$code}.=$sub."=".$lang."\n";
     }
 }
 close(COUNTRY);
@@ -15,7 +15,7 @@
    print $lccode."\t".$two."\t\t".$three."\t".$enc."\t".$lang."\t\n";
    if ($multi{$two}) {
        foreach $comb (split(/\n/,$multi{$two})) {
-	   ($sub,$langu)=split(/ /,$comb);
+	   ($sub,$langu)=split(/\=/,$comb);
            if ($sub) {
               print $lccode.$sub."\t".$two."\t".$sub."\t".$three."\t".$enc."\t".$langu."\t\n";
 	  }