aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Payments/Table.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View/Payments/Table.elm')
-rw-r--r--src/client/View/Payments/Table.elm16
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" ] []
]