Allow to click on custom fields in detail view

Closes: #514
This commit is contained in:
Eike Kettner
2021-01-08 18:14:16 +01:00
parent 48d182667d
commit 9bc2084499
6 changed files with 71 additions and 3 deletions

View File

@ -3,12 +3,14 @@ module Data.CustomFieldChange exposing
, CustomFieldValueCollect
, collectValues
, emptyCollect
, fromItemValues
, isValueChange
, toFieldValues
)
import Api.Model.CustomField exposing (CustomField)
import Api.Model.CustomFieldValue exposing (CustomFieldValue)
import Api.Model.ItemFieldValue exposing (ItemFieldValue)
import Dict exposing (Dict)
@ -75,3 +77,10 @@ isValueChange change =
FieldCreateNew ->
False
fromItemValues : List { v | id : String, value : String } -> CustomFieldValueCollect
fromItemValues values =
List.map (\e -> ( e.id, e.value )) values
|> Dict.fromList
|> CustomFieldValueCollect