Fix and enhance custom-multi-input field

This commit is contained in:
Eike Kettner
2020-11-22 20:07:35 +01:00
parent 066c856981
commit 23b343649c
4 changed files with 175 additions and 92 deletions

View File

@ -18,11 +18,12 @@ import Api.Model.ItemProposals exposing (ItemProposals)
import Api.Model.ReferenceList exposing (ReferenceList)
import Api.Model.Tag exposing (Tag)
import Api.Model.TagList exposing (TagList)
import Comp.CustomFieldMultiInput exposing (FieldResult(..))
import Comp.CustomFieldMultiInput
import Comp.DatePicker
import Comp.DetailEdit
import Comp.Dropdown exposing (isDropdownChangeMsg)
import Comp.ItemDetail.FormChange exposing (FormChange(..))
import Data.CustomFieldChange exposing (CustomFieldChange(..))
import Data.Direction exposing (Direction)
import Data.Fields
import Data.Flags exposing (Flags)
@ -568,7 +569,7 @@ update flags msg model =
change =
case res.result of
NoResult ->
NoFieldChange ->
NoFormChange
FieldValueRemove cf ->

View File

@ -14,7 +14,7 @@ import Api.Model.ReferenceList exposing (ReferenceList)
import Api.Model.Tag exposing (Tag)
import Browser.Navigation as Nav
import Comp.AttachmentMeta
import Comp.CustomFieldMultiInput exposing (FieldResult(..))
import Comp.CustomFieldMultiInput
import Comp.DatePicker
import Comp.DetailEdit
import Comp.Dropdown exposing (isDropdownChangeMsg)
@ -41,6 +41,7 @@ import Comp.OrgForm
import Comp.PersonForm
import Comp.SentMails
import Comp.YesNoDimmer
import Data.CustomFieldChange exposing (CustomFieldChange(..))
import Data.Direction
import Data.Fields exposing (Field)
import Data.Flags exposing (Flags)
@ -1301,7 +1302,7 @@ update key flags inav settings msg model =
action =
case result.result of
NoResult ->
NoFieldChange ->
Cmd.none
FieldValueRemove field ->