diff options
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Header')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Header/View.elm | 18 |
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 = |