Show fieldVaule on select list for existig records

digitallyinduced · Nov 6, 2023 · 8fa88fe · 8fa88fe
1 parent dac48f2
commit 8fa88fe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/IHP/View/Form.hs b/IHP/View/Form.hs
@@ -743,7 +743,7 @@ selectField field items = FormField
         -- If the field is not touched, we don't want to render the value from the model
         -- so we force the user to select. If a value was explicitely set in the model, we
         -- render that value.
-        , fieldValue = if IHP.ModelSupport.didTouchField field model
+        , fieldValue = if IHP.ModelSupport.didTouchField field model || (not $ isNew model)
                     then inputValue (getField @fieldName model :: SelectValue item)
                     else ""
         , fieldInputId = cs (lcfirst (getModelName @model) <> "_" <> cs fieldName)