bit-badger/myWebLog
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases 11 Activity

Tweak to chapter edit template

Browse Source
This commit is contained in:
Daniel J. Summers 2024-03-14 20:54:58 -04:00
parent cac7b1d9b5
commit b85cae2241
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/MyWebLog/Views/Post.fs
View File

@ -55,8 +55,7 @@ let chapterEdit (model: EditChapterModel) app = [
]
]
div [ _class "row" ] [
let hasLoc = model.LocationName <> ""
let attrs = if hasLoc then [] else [ _disabled ]
let hasLoc, attrs = if model.LocationName = "" then false, [ _disabled ] else true, []
div [ _class "col-12 col-md-4 col-lg-3 offset-lg-1 mb-3 align-self-end" ] [
checkboxSwitch [ _onclick "Admin.checkChapterLocation()" ] "has_location" "Associate Location" hasLoc []
]
@ -91,11 +90,7 @@ let chapterEdit (model: EditChapterModel) app = [
div [ _class "col" ] [
let cancelLink = relUrl app $"admin/post/{model.PostId}/chapters"
if model.Index < 0 then
div [ _class "form-check form-switch mb-3" ] [
input [ _type "checkbox"; _id "add_another"; _name "AddAnother"; _class "form-check-input"
_value "true"; _checked ]
label [ _for "add_another" ] [ raw "Add Another New Chapter" ]
]
checkboxSwitch [ _checked ] (nameof model.AddAnother) "Add Another New Chapter" true []
else
input [ _type "hidden"; _name "AddAnother"; _value "false" ]
saveButton; raw " &nbsp; "