From 902fd63125bef9ac7ca51e655528cb3483b4a9df Mon Sep 17 00:00:00 2001 From: Eike Kettner Date: Wed, 26 Feb 2020 20:43:16 +0100 Subject: [PATCH] Fix initializing concerned equipment --- modules/webapp/src/main/elm/Comp/ItemDetail.elm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/modules/webapp/src/main/elm/Comp/ItemDetail.elm b/modules/webapp/src/main/elm/Comp/ItemDetail.elm index 1fde18a2..cbabc5f9 100644 --- a/modules/webapp/src/main/elm/Comp/ItemDetail.elm +++ b/modules/webapp/src/main/elm/Comp/ItemDetail.elm @@ -407,6 +407,20 @@ update key flags next msg model = ) m4 + ( m6, c6 ) = + update key + flags + next + (ConcEquipMsg + (Comp.Dropdown.SetSelection + (item.concEquipment + |> Maybe.map List.singleton + |> Maybe.withDefault [] + ) + ) + ) + m5 + proposalCmd = if item.state == "created" then Api.getItemProposals flags item.id GetProposalResp @@ -414,7 +428,7 @@ update key flags next msg model = else Cmd.none in - ( { m5 + ( { m6 | item = item , nameModel = item.name , notesModel = item.notes @@ -428,6 +442,7 @@ update key flags next msg model = , c3 , c4 , c5 + , c6 , getOptions flags , proposalCmd , Api.getSentMails flags item.id SentMailsResp