Read-only RRs: display a single button.

beta
Philippe Pittoli 2024-02-21 03:22:53 +01:00
parent d6f85b5a00
commit 6883263b24
2 changed files with 5 additions and 8 deletions

View File

@ -778,12 +778,10 @@ render_resources records
, HH.td_ [ Bulma.p rr.name] , HH.td_ [ Bulma.p rr.name]
, HH.td_ [ Bulma.p $ show rr.ttl ] , HH.td_ [ Bulma.p $ show rr.ttl ]
, HH.td_ [ Bulma.p rr.target ] , HH.td_ [ Bulma.p rr.target ]
, if rr.readonly ] <> if rr.readonly
then HH.td_ [ Bulma.btn_readonly ] then [ HH.td_ [ Bulma.btn_readonly ] ]
else HH.td_ [ Bulma.btn_modify (CreateUpdateRRModal rr.rrid) ] else [ HH.td_ [ Bulma.btn_modify (CreateUpdateRRModal rr.rrid) ]
, if rr.readonly , HH.td_ [ Bulma.btn_delete (DeleteRRModal rr.rrid) ]
then HH.td_ [ Bulma.btn_readonly ]
else HH.td_ [ Bulma.btn_delete (DeleteRRModal rr.rrid) ]
] ]
baseRecords :: Array String baseRecords :: Array String

View File

@ -76,7 +76,6 @@ simple_table_header_ro
, HH.th_ [ HH.text "TTL" ] , HH.th_ [ HH.text "TTL" ]
, HH.th_ [ HH.text "Target" ] , HH.th_ [ HH.text "Target" ]
, HH.th_ [ HH.text "" ] , HH.th_ [ HH.text "" ]
, HH.th_ [ HH.text "" ]
] ]
] ]