From 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 23 Jun 2016 23:43:23 +0200
Subject: Use a dialog to add a payment

---
 src/server/Model/Message/Translations.hs | 42 +++++++++++++++++++++++---------
 1 file changed, 31 insertions(+), 11 deletions(-)

(limited to 'src/server/Model/Message/Translations.hs')

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 8a640d1..f4087a4 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -200,10 +200,30 @@ m l CostRequired =
 
 -- Payments
 
-m l Add =
+m l Name =
   case l of
-    English -> "Add"
-    French  -> "Ajouter"
+    English -> "Name"
+    French  -> "Nom"
+
+m l Cost =
+  case l of
+    English -> "Cost"
+    French  -> "Coût"
+
+m l Frequency =
+  case l of
+    English -> "Frequency"
+    French  -> "Fréquence"
+
+m l InvalidFrequency =
+  case l of
+    English -> "Invalid frequency"
+    French  -> "Fréquence invalide"
+
+m l AddPayment =
+  case l of
+    English -> "Add a payment"
+    French  -> "Ajouter un paiement"
 
 m l PaymentNotDeleted =
   case l of
@@ -213,12 +233,12 @@ m l PaymentNotDeleted =
 m l Punctual =
   case l of
     English -> "Punctual"
-    French  -> "Ponctuel"
+    French  -> "Ponctuelle"
 
 m l Monthly =
   case l of
     English -> "Monthly"
-    French  -> "Mensuel"
+    French  -> "Mensuelle"
 
 m l SingularMonthlyCount =
   case l of
@@ -227,7 +247,7 @@ m l SingularMonthlyCount =
 
 m l PluralMonthlyCount =
   case l of
-    English -> "{1} monthly payments totalling {2}"
+    English -> "{1} monthly payments worth {2}"
     French  -> "{1} paiements mensuels comptabilisant {2}"
 
 m l PaymentsTitle =
@@ -253,7 +273,7 @@ m l SearchText =
 m l Worth =
   case l of
     English -> "{1} worth {2}"
-    French  -> "{1} valant {2}"
+    French  -> "{1} comptabilisant {2}"
 
 -- Statistics
 
@@ -348,13 +368,13 @@ m l InvalidInt =
 
 m l SmallerIntThan =
   case l of
-    English -> "Integer bigger than {1} required"
-    French  -> "Entier supérieur à {1} requis"
+    English -> "Integer bigger than {1} or equal required"
+    French  -> "Entier supérieur ou égal à {1} requis"
 
 m l GreaterIntThan =
   case l of
-    English -> "Integer smaller than {1} required"
-    French  -> "Entier inférieur à {1} requis"
+    English -> "Integer smaller than {1} or equal required"
+    French  -> "Entier inférieur ou égal à {1} requis"
 
 -- Dialog
 
-- 
cgit v1.2.3