Server payament delete

1 files changed, 11 insertions, 5 deletions

diff --git a/src/client/View/Payments/Table.elm b/src/client/View/Payments/Table.elm
index 9033db8..50dd151 100644
--- a/src/client/View/Payments/Table.elm
+++ b/src/client/View/Payments/Table.elm
@@ -16,6 +16,8 @@ import Model exposing (Model)
 import Model.Payment exposing (..)
 import Model.View.PaymentView exposing (PaymentView)
 
+import ServerCommunication as SC exposing (serverCommunications)
+
 import Update exposing (..)
 import Update.Payment exposing (..)
 
@@ -54,9 +56,13 @@ paymentLine model paymentView (id, payment) =
     , div [ class "cell" ] [ text ((toString payment.cost) ++ " €") ]
     , div [ class "cell" ] [ text payment.userName ]
     , div [ class "cell" ] [ text (renderDate payment.creation model.translations) ]
-    , div
-        [ class "cell remove"
-        , onClick actions.address (UpdatePayment (Remove id))
-        ]
-        [ renderIcon "times" ]
+    , if paymentView.userName == payment.userName
+        then
+          div
+            [ class "cell remove"
+            , onClick serverCommunications.address (SC.DeletePayment id)
+            ]
+            [ renderIcon "times" ]
+        else
+          div [ class "cell" ] []
     ]