From 29cfa035f4a30e5ce918fb2d1a147459fa366655 Mon Sep 17 00:00:00 2001 From: eikek Date: Thu, 10 Jun 2021 01:26:21 +0200 Subject: [PATCH] Add boolean custom field immediately with value false The time the user selects this field it should be pushed to the server, because the initial value of "false" is a correct value. All other fields require the user to type something first. --- .../src/main/elm/Comp/CustomFieldMultiInput.elm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/modules/webapp/src/main/elm/Comp/CustomFieldMultiInput.elm b/modules/webapp/src/main/elm/Comp/CustomFieldMultiInput.elm index 5fd04608..1635c31e 100644 --- a/modules/webapp/src/main/elm/Comp/CustomFieldMultiInput.elm +++ b/modules/webapp/src/main/elm/Comp/CustomFieldMultiInput.elm @@ -22,6 +22,7 @@ import Api.Model.ItemFieldValue exposing (ItemFieldValue) import Comp.CustomFieldInput import Comp.FixedDropdown import Data.CustomFieldChange exposing (CustomFieldChange(..)) +import Data.CustomFieldType import Data.DropdownStyle as DS import Data.Flags exposing (Flags) import Dict exposing (Dict) @@ -217,8 +218,16 @@ update1 forSearch flags msg model = cmd_ = Cmd.map (CustomFieldInputMsg f) fc + + change = + case Data.CustomFieldType.fromString f.ftype of + Just Data.CustomFieldType.Boolean -> + FieldValueChange f "false" + + _ -> + NoFieldChange in - UpdateResult model_ cmd_ NoFieldChange + UpdateResult model_ cmd_ change RemoveField f -> let