aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/Header
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Header')
-rw-r--r--src/client/elm/LoggedIn/Home/Header/View.elm18
1 files changed, 12 insertions, 6 deletions
diff --git a/src/client/elm/LoggedIn/Home/Header/View.elm b/src/client/elm/LoggedIn/Home/Header/View.elm
index 9468a04..753a120 100644
--- a/src/client/elm/LoggedIn/Home/Header/View.elm
+++ b/src/client/elm/LoggedIn/Home/Header/View.elm
@@ -8,6 +8,7 @@ import Html.Events exposing (..)
import Html.App as Html
import String
import Dict
+import Date
import Form exposing (Form)
import View.Form as Form
@@ -24,7 +25,8 @@ import Model.Conf exposing (Conf)
import Model.Payment as Payment exposing (Payments, Frequency(..))
import Model.Translations exposing (getMessage)
-import Dialog.AddPayment.View as AddPayment
+import Dialog.Model as DialogModel
+import Dialog.AddPaymentButton.View as AddPaymentButton
import LoggedIn.Home.View.ExceedingPayers as ExceedingPayers
import LoggedIn.View.Format as Format
@@ -43,11 +45,15 @@ view loggedData { search } payments frequency =
searchLine : LoggedData -> Form String Home.Search -> Frequency -> Html Msg
searchLine loggedData search frequency =
- Html.div
- [ class "searchLine" ]
- [ searchForm loggedData search
- , AddPayment.view loggedData frequency
- ]
+ let currentDate = Date.fromTime loggedData.currentTime
+ in Html.div
+ [ class "searchLine" ]
+ [ searchForm loggedData search
+ , AddPaymentButton.view
+ loggedData
+ (DialogModel.addPaymentInitial loggedData.translations currentDate frequency)
+ (text (getMessage "AddPayment" loggedData.translations))
+ ]
searchForm : LoggedData -> Form String Home.Search -> Html Msg
searchForm loggedData search =