diff options
| author | Yorhel <git@yorhel.nl> | 2020-07-28 11:48:39 +0200 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2020-08-07 12:36:58 +0200 |
| commit | afe7f9874ee797a974fc66abc3a9c735e7b22ab3 (patch) | |
| tree | 328f332b538e76cb8b707289f407041554f4c0e9 /elm | |
| parent | 74b1f7c58a0f4105e14754cad0f30c61a5e03614 (diff) | |
reviews: Add initial SQL schema + "review" permission flag
The boardmod flag will also determine the review moderation permissions.
Diffstat (limited to 'elm')
| -rw-r--r-- | elm/User/Edit.elm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/elm/User/Edit.elm b/elm/User/Edit.elm index c51f37b4..d09c77ae 100644 --- a/elm/User/Edit.elm +++ b/elm/User/Edit.elm @@ -61,6 +61,7 @@ init d = type AdminMsg = PermBoard Bool + | PermReview Bool | PermBoardmod Bool | PermEdit Bool | PermImgvote Bool @@ -108,6 +109,7 @@ updateAdmin : AdminMsg -> GUE.SendAdmin -> GUE.SendAdmin updateAdmin msg model = case msg of PermBoard b -> { model | perm_board = b } + PermReview b -> { model | perm_review = b } PermBoardmod b -> { model | perm_boardmod = b } PermEdit b -> { model | perm_edit = b } PermImgvote b -> { model | perm_imgvote = b } @@ -189,6 +191,7 @@ view model = , formField "Permissions" [ text "Fields marked with * indicate permissions assigned to new users by default", br_ 1 , perm opts.perm_boardmod <| label [] [ inputCheck "" m.perm_board (Admin << PermBoard), text " board*", br_ 1 ] + , perm opts.perm_boardmod <| label [] [ inputCheck "" m.perm_review (Admin << PermReview), text " review*", br_ 1 ] , perm False <| label [] [ inputCheck "" m.perm_boardmod (Admin << PermBoardmod), text " boardmod", br_ 1 ] , perm opts.perm_dbmod <| label [] [ inputCheck "" m.perm_edit (Admin << PermEdit), text " edit*", br_ 1 ] , perm opts.perm_imgmod <| label [] [ inputCheck "" m.perm_imgvote (Admin << PermImgvote), text " imgvote* (existing votes will stop counting when unset)", br_ 1 ] |