diff options
| author | Joris | 2016-06-26 17:30:03 +0200 |
|---|---|---|
| committer | Joris | 2016-06-26 17:30:03 +0200 |
| commit | 885dfd7708e338a3220c85b7f22a3ac267aad3f7 (patch) | |
| tree | ff259354eb9fd97fc0bab2775296830dcced5693 /src/client/elm/LoggedIn/Home/View | |
| parent | cfade71c343eb29c8873011f5878a39aed8257b2 (diff) | |
Add the clone functionality on payments
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/View/Table.elm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm index 282f00a..d2087bb 100644 --- a/src/client/elm/LoggedIn/Home/View/Table.elm +++ b/src/client/elm/LoggedIn/Home/View/Table.elm @@ -29,6 +29,8 @@ import Model.Payment as Payment exposing (..) import Model.Translations exposing (getMessage) import Dialog +import Dialog.Model as DialogModel +import Dialog.AddPaymentButton.View as AddPaymentButton view : LoggedData -> HomeModel.Model -> Payments -> Frequency -> Html Msg view loggedData homeModel payments frequency = @@ -61,6 +63,7 @@ headerLine loggedData frequency = Punctual -> div [ class "cell date" ] [ text <| getMessage "Date" loggedData.translations ] Monthly -> text "" , div [ class "cell" ] [] + , div [ class "cell" ] [] ] paymentLine : LoggedData -> HomeModel.Model -> Frequency -> Payment -> Html Msg @@ -96,7 +99,15 @@ paymentLine loggedData homeModel frequency payment = Monthly -> text "" , div - [ class "cell delete" ] + [ class "cell button" ] + [ let currentDate = Date.fromTime loggedData.currentTime + in AddPaymentButton.view + loggedData + (DialogModel.clonePaymentInitial loggedData.translations currentDate payment) + (FontAwesome.clone Color.chestnutRose 18) + ] + , div + [ class "cell button" ] [ if loggedData.me /= payment.userId then text "" |