Add the clone functionality on payments

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 ""