diff --git a/src/MyWebLog/Views/WebLog.fs b/src/MyWebLog/Views/WebLog.fs index fdb0ffe..53ddbc1 100644 --- a/src/MyWebLog/Views/WebLog.fs +++ b/src/MyWebLog/Views/WebLog.fs @@ -248,7 +248,7 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met |> Seq.append [ { Name = ""; Value = "– Select Category –" } ] selectField [ _id "SourceValueCat"; _required 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" ] [ @@ -257,7 +257,7 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met _class "form-check-input"; _value "tag" if model.SourceType= "tag" then _checked _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" ] [ @@ -313,7 +313,8 @@ let feedEdit (model: EditCustomFeedModel) (ratings: MetaItem list) (mediums: Met model.DisplayedAuthor [] ] 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" ] [ raw "For iTunes, must match registered e-mail" ]