Add missing translations and modify clone income date to be the actual date

3 files changed, 13 insertions, 1 deletions

diff --git a/src/client/elm/Dialog/AddIncome/Model.elm b/src/client/elm/Dialog/AddIncome/Model.elm
index 664557e..0d52b22 100644
--- a/src/client/elm/Dialog/AddIncome/Model.elm
+++ b/src/client/elm/Dialog/AddIncome/Model.elm
@@ -34,7 +34,7 @@ initialAdd translations date =
 initialClone : Translations -> Date -> Income -> List (String, Field)
 initialClone translations date income =
   [ ("amount", Field.Text (toString income.amount))
-  , ("date", Field.Text (Date.shortView (Date.fromTime income.time) translations))
+  , ("date", Field.Text (Date.shortView date translations))
   ]
 
 initialEdit : Translations -> IncomeId -> Income -> List (String, Field)
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 4ffc890..9126b61 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -98,6 +98,8 @@ data Key =
   | Income
   | MonthlyNetIncomes
   | AddIncome
+  | CloneIncome
+  | EditIncome
   | IncomeNotDeleted
   | IncomeDate
   | IncomeAmount
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 32b58fc..4b698d7 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -379,6 +379,16 @@ m l AddIncome =
     English -> "Add an income"
     French  -> "Ajouter un revenu"
 
+m l CloneIncome =
+  case l of
+    English -> "Clone an income"
+    French  -> "Cloner un revenu"
+
+m l EditIncome =
+  case l of
+    English -> "Edit an income"
+    French  -> "Modifier un revenu"
+
 m l IncomeNotDeleted =
   case l of
     English -> "The income could not have been deleted."