diff options
| author | Yorhel <git@yorhel.nl> | 2021-11-29 13:26:55 +0100 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2021-11-29 13:26:55 +0100 |
| commit | fa86ca885a5aa08543207ad8a64d42f05ab52caf (patch) | |
| tree | 27415688dbf1bce388290fb55e3018ab16cfe981 /elm | |
| parent | 29c0ce366ef7f089a72732cc7e9ae4f924ded7a3 (diff) | |
Releases: Allow "uncensored" flag to be unknown
Diffstat (limited to 'elm')
| -rw-r--r-- | elm/ReleaseEdit.elm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/elm/ReleaseEdit.elm b/elm/ReleaseEdit.elm index 2a45e296..25d8f660 100644 --- a/elm/ReleaseEdit.elm +++ b/elm/ReleaseEdit.elm @@ -47,7 +47,7 @@ type alias Model = , catalog : String , released : D.RDate , minage : Maybe Int - , uncensored : Bool + , uncensored : Maybe Bool , resoX : Int , resoY : Int , reso : A.Model GApi.ApiResolutions @@ -169,7 +169,7 @@ type Msg | Catalog String | Released D.RDate | Minage (Maybe Int) - | Uncensored Bool + | Uncensored (Maybe Bool) | Resolution (A.Msg GApi.ApiResolutions) | Voiced Int | AniStory Int @@ -348,7 +348,12 @@ viewGen model = , if model.minage == Just 18 then inputSelect "" model.ani_ero AniEro [] GT.animated else text "" ] , if model.minage /= Just 18 then text "" else - formField "" [ label [] [ inputCheck "" model.uncensored Uncensored, text " Uncensored (No mosaic or other optical censoring, only check if this release has erotic content)" ] ] + formField "uncensored::Censoring" + [ inputSelect "uncensored" model.uncensored Uncensored [] + [ (Nothing, "Unknown") + , (Just False, "Censored graphics") + , (Just True, "Uncensored graphics") ] + , text " Whether erotic graphics are censored with mosaic or other optical censoring." ] , tr [ class "newpart" ] [ td [ colspan 2 ] [ text "External identifiers & links" ] ] , formField "gtin::JAN/UPC/EAN" |