From 5bf0a838e800605e95b5b03157bdf0780db497e6 Mon Sep 17 00:00:00 2001
From: Eike Rathke <erack@redhat.com>
Date: Fri, 3 Jan 2014 01:56:43 +0100
Subject: added LVL Latvian Lats to Euro Converter, fdo#73239

Change-Id: Icc6f9c40a39f08bb0bcbed6d25c99f0e67cb608c
---
 wizards/source/euro/Init.xba | 34 +++++++++++++++++++++++++++-------
 wizards/source/euro/euro.src |  7 ++++++-
 2 files changed, 33 insertions(+), 8 deletions(-)

diff --git a/wizards/source/euro/Init.xba b/wizards/source/euro/Init.xba
index d01d500bca2d..33d9eb896fd0 100644
--- a/wizards/source/euro/Init.xba
+++ b/wizards/source/euro/Init.xba
@@ -89,6 +89,7 @@ Public sCurrCYPRIOT as String
 Public sCurrMALTESE as String
 Public sCurrSLOVAK as String
 Public sCurrESTONIAN as String
+Public sCurrLATVIAN as String
 Public sCurrUNKNOWN as String
 Public sCurrSYSUNKNOWN as String
 
@@ -133,8 +134,8 @@ Public CurExtension(2) as String
 Public Currfactor as Double
 Public CurrSymbolList(2) as String
 Public CurrLanguage as String
-Public CurrValue(16,5)
-Public LangIDValue(16,2,2) as String
+Public CurrValue(17,5)
+Public LangIDValue(17,2,2) as String
 Public PreName as String
 Public Separator as String
 Public BitmapDir as String
@@ -214,8 +215,9 @@ Dim LocWorkPath as String
 		sCurrMALTESE = GetResText(1514)
 		sCurrSLOVAK = GetResText(1515)
 		sCurrESTONIAN = GetResText(1516)
-		sCurrUNKNOWN = GetResText(1517)
-		sCurrSYSUNKNOWN = GetResText(1518)
+		sCurrLATVIAN = GetResText(1517)
+		sCurrUNKNOWN = GetResText(1518)
+		sCurrSYSUNKNOWN = GetResText(1519)
 		.cmdCancel.Label =  sCANCEL
 		.cmdHelp.Label =  sHELP
 		.cmdBack.Label =  GetResText(1002)
@@ -377,9 +379,18 @@ Sub InitializeLanguages()
 	LangIDValue(15,0,2) = &quot;-41B&quot;
 
 &apos; CURRENCIES_ESTONIAN
-       LangIDValue(16,0,0) = &quot;et&quot;
-       LangIDValue(16,0,1) = &quot;ET&quot;
-       LangIDValue(16,0,2) = &quot;-425&quot;
+    LangIDValue(16,0,0) = &quot;et&quot;
+    LangIDValue(16,0,1) = &quot;ET&quot;
+    LangIDValue(16,0,2) = &quot;-425&quot;
+
+&apos; CURRENCIES_LATVIAN
+    LangIDValue(17,0,0) = &quot;lv&quot;
+    LangIDValue(17,0,1) = &quot;LV&quot;
+    LangIDValue(17,0,2) = &quot;-426&quot;
+    &apos; and Latgalian
+    LangIDValue(17,1,0) = &quot;ltg&quot;
+    LangIDValue(17,1,1) = &quot;LV&quot;
+    LangIDValue(17,1,2) = &quot;-64B&quot;
 
 End Sub
 
@@ -542,6 +553,15 @@ Dim i as Integer
 	CurrValue(16,4) = &quot;kr&quot;
 	CurrValue(16,5) = &quot;EEK&quot;
 
+	CurrValue(17,0) = sCurrLATVIAN
+	&apos; real conversion rate
+	CurrValue(17,1) = 0.702804
+	&apos; rounded conversion rate
+	CurrValue(17,2) = 0.7
+	CurrValue(17,3) = &quot;Ls&quot;
+	CurrValue(17,4) = &quot;Ls&quot;
+	CurrValue(17,5) = &quot;LVL&quot;
+
 	i = -1
 	CurrSymbolList(0) = &quot;&quot;
 	CurrSymbolList(1) = &quot;&quot;
diff --git a/wizards/source/euro/euro.src b/wizards/source/euro/euro.src
index 0a4245140ee2..9db7204b1eb8 100644
--- a/wizards/source/euro/euro.src
+++ b/wizards/source/euro/euro.src
@@ -438,11 +438,16 @@ Text [ en-US ] = "Estonian Kroon";
 
 String CURRENCIES + 17
 {
-Text [ en-US ] = "The currency set for the document is not a European currency!";
+Text [ en-US ] = "Latvian Lats";
 };
 
 String CURRENCIES + 18
 {
+Text [ en-US ] = "The currency set for the document is not a European currency!";
+};
+
+String CURRENCIES + 19
+{
 Text [ en-US ] = "The language set for your operating system is not a language of the European Monetary Union.";
 };
 
-- 
cgit v1.2.3