Changeset 2d8f7d7 in tol

Timestamp:

Jul 3, 2012, 5:10:46 PM (14 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

50804e0

Parents:

cf70f86

Message:

Refs #1574

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4910 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/TolConfigManager/methods.tol (modified) (1 diff)

tol/stdlib/TolConfigManager/methods.tol

@@ -50 +50 @@
   Text TolConfigManager::Config::Various::Language := 
     ToUpper(TolConfigManager::Config::Various::Language);
-  Text PutLanguage(TolConfigManager::Config::Various::Language);
-  Text WriteFile(GetFilePath(TOLSessionPath)+"language.txt",""<<If( 
-    TolConfigManager::Config::Various::Language=="CASTELLANO",1,0));
+  Real langId = Case(
+    TolConfigManager::Config::Various::Language=="ENGLISH", 0,
+    TolConfigManager::Config::Various::Language=="INGLES", 0,
+    TolConfigManager::Config::Various::Language=="INGLÉS", 0,
+    TolConfigManager::Config::Various::Language=="SPANISH", 1,
+    TolConfigManager::Config::Various::Language=="CASTELLANO", 1,
+    TolConfigManager::Config::Various::Language=="ESPAÑOL", 1,
+    1==1,-1);
+  Text LANGUAGE = If(langId==1,"CASTELLANO","ENGLISH"); 
+  Text TolConfigManager::Config::Various::Language := LANGUAGE;
+  Text PutLanguage(LANGUAGE);
+  Text WriteFile(TolAppDataPath+"language.txt",""<<langId);
+  Text WriteFile(GetFilePath(TOLSessionPath)+"language.txt",""<<langId);
   Real ShowStackAtError := 
     TolConfigManager::Config::Various::Verbose::ShowStackAtError;