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

Fix source dropdown; disable auto-compl on e-mail

Browse Source
This commit is contained in:
danieljsummers
2026-09-19 14:11:36 -04:00
parent e17e5b79f0
commit 0c2e2e9265
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/MyWebLog/Views/WebLog.fs
+4 -3
View File
@@ -248,7 +248,7 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met
|> Seq.append [ { Name = ""; Value = "– Select Category –" } ] |> Seq.append [ { Name = ""; Value = "– Select Category –" } ]
selectField [ _id "SourceValueCat"; _required selectField [ _id "SourceValueCat"; _required
if model.SourceType = "tag" then _disabled ] if model.SourceType = "tag" then _disabled ]
(nameof model.SourceValue) "Category" model.SourceValue cats _.Name _.Value "SourceValueCat" "Category" model.SourceValue cats _.Name _.Value
[] []
] ]
div [ _class "col-1 d-flex justify-content-end pb-3" ] [ div [ _class "col-1 d-flex justify-content-end pb-3" ] [
@@ -257,7 +257,7 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met
_class "form-check-input"; _value "tag" _class "form-check-input"; _value "tag"
if model.SourceType= "tag" then _checked if model.SourceType= "tag" then _checked
_onclick "Admin.customFeedBy('tag')" ] _onclick "Admin.customFeedBy('tag')" ]
label [ _for "sourceTypeTag"; _class "form-check-label d-none" ] [ raw "Tag" ] label [ _for "SourceTypeTag"; _class "form-check-label d-none" ] [ raw "Tag" ]
] ]
] ]
div [ _class "col-11 pb-3" ] [ div [ _class "col-11 pb-3" ] [
@@ -313,7 +313,8 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met
model.DisplayedAuthor [] model.DisplayedAuthor []
] ]
div [ _class "col-12 col-md-6 col-lg-4 pb-3" ] [ div [ _class "col-12 col-md-6 col-lg-4 pb-3" ] [
emailField [ _required ] (nameof model.Email) "Author E-mail" model.Email [ emailField [ _required; _autocomplete "off" ] (nameof model.Email) "Author E-mail"
model.Email [
span [ _class "form-text fst-italic" ] [ span [ _class "form-text fst-italic" ] [
raw "For iTunes, must match registered e-mail" raw "For iTunes, must match registered e-mail"
] ]