From 70720548c9af024dbb6080638ac8e5470c2213eb Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 15:10:03 +0200
Subject: Use the search to view either punctual or monthly payments

---
 src/client/elm/LoggedIn/Income/View.elm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/client/elm/LoggedIn/Income')

diff --git a/src/client/elm/LoggedIn/Income/View.elm b/src/client/elm/LoggedIn/Income/View.elm
index 25cb5a6..be15c6b 100644
--- a/src/client/elm/LoggedIn/Income/View.elm
+++ b/src/client/elm/LoggedIn/Income/View.elm
@@ -80,8 +80,8 @@ addIncomeView loggedData addIncome =
   let htmlMap = Html.map (Msg.UpdateLoggedIn << LoggedInMsg.IncomeMsg << IncomeMsg.AddIncomeMsg)
   in  Html.form
         [ onSubmitPrevDefault Msg.NoOp ]
-        [ Form.textInput loggedData.translations addIncome htmlMap "creation"
-        , Form.textInput loggedData.translations addIncome htmlMap "amount"
+        [ Form.textInput loggedData.translations addIncome htmlMap "income" "creation"
+        , Form.textInput loggedData.translations addIncome htmlMap "income" "amount"
         , button
             [ case Form.getOutput addIncome of
                 Just data ->
@@ -112,7 +112,8 @@ incomeView loggedData (incomeId, income) =
     , text "    −    "
     , text <| Format.price loggedData.conf income.amount
     , let dialogConfig =
-            { title = getMessage "ConfirmDelete" loggedData.translations
+            { className = "incomeDialog"
+            , title = getMessage "ConfirmDelete" loggedData.translations
             , body = always <| text ""
             , confirm = getMessage "Confirm" loggedData.translations
             , confirmMsg = always <| Ok <| Msg.UpdateLoggedIn <| LoggedInMsg.DeleteIncome incomeId
-- 
cgit v1.2.3