Baguette/dnsmanager-webclient
3
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

CAA: fix modal.

Browse Source
This commit is contained in:
Philippe PITTOLI 2024-06-08 04:08:25 +02:00
parent da64f3d2a6
commit 0077da993e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/App/Page/Zone.purs
View File

@ -466,11 +466,12 @@ render state
, Bulma.hr , Bulma.hr
, Bulma.box_input ("flagCAA") "Flag" "" , Bulma.box_input ("flagCAA") "Flag" ""
(updateForm Field_CAA_flag) (updateForm Field_CAA_flag)
state._currentRR.target (show (fromMaybe default_caa state._currentRR.caa).flag)
, Bulma.selection_field'' "tagCAA" "Tag" CAA_tag (A.zip CAA.tags_txt CAA.tags_raw) , Bulma.selection_field'' "tagCAA" "Tag" CAA_tag (A.zip CAA.tags_txt CAA.tags_raw)
CAA.Issue CAA.Issue
(Just (fromMaybe default_caa state._currentRR.caa).tag) (Just (fromMaybe default_caa state._currentRR.caa).tag)
, Bulma.box_input "valueCAA" "Value" "" (updateForm Field_CAA_value) state._currentRR.name , Bulma.box_input "valueCAA" "Value" "" (updateForm Field_CAA_value)
(fromMaybe default_caa state._currentRR.caa).value
] ]
modal_content_srv :: Array (HH.HTML w Action) modal_content_srv :: Array (HH.HTML w Action)
modal_content_srv = modal_content_srv =