diff options
author | Yorhel <git@yorhel.nl> | 2021-03-06 13:01:02 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-03-06 13:01:02 +0100 |
commit | 691c73a4aff6ef6467805c8b96491817269c0ba3 (patch) | |
tree | 919a34a1e610160b8b33461c07a0ced12d8e713f | |
parent | 9c0165b293fd4cc152dc77c6a98b9cccde0deb21 (diff) |
Releases: Allow medium quanitity selection up to 40
-rw-r--r-- | elm/ReleaseEdit.elm | 2 | ||||
-rw-r--r-- | lib/VNWeb/Releases/Edit.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/elm/ReleaseEdit.elm b/elm/ReleaseEdit.elm index ed5d94d5..803341cd 100644 --- a/elm/ReleaseEdit.elm +++ b/elm/ReleaseEdit.elm @@ -327,7 +327,7 @@ viewGen model = let q = List.filter (\(s,_,_) -> m.medium == s) GT.media |> List.head |> Maybe.map (\(_,_,x) -> x) |> Maybe.withDefault False in tr [] [ td [] [ inputSelect "" m.medium (MediaType i) [] <| (if m.medium == "unk" then [("unk", "- Add medium -")] else []) ++ List.map (\(a,b,_) -> (a,b)) GT.media ] - , td [] [ if q then inputSelect "" m.qty (MediaQty i) [ style "width" "100px" ] <| List.map (\a -> (a,String.fromInt a)) <| List.range 1 20 else text "" ] + , td [] [ if q then inputSelect "" m.qty (MediaQty i) [ style "width" "100px" ] <| List.map (\a -> (a,String.fromInt a)) <| List.range 1 40 else text "" ] , td [] [ if m.medium == "unk" then text "" else inputButton "remove" (MediaDel i) [] ] ] ) <| model.media ++ [{medium = "unk", qty = 0}] diff --git a/lib/VNWeb/Releases/Edit.pm b/lib/VNWeb/Releases/Edit.pm index 2bb09d61..ffc8a3b9 100644 --- a/lib/VNWeb/Releases/Edit.pm +++ b/lib/VNWeb/Releases/Edit.pm @@ -16,7 +16,7 @@ my $FORM = { platforms => { aoh => { platform => { enum => \%PLATFORM } } }, media => { aoh => { medium => { enum => \%MEDIUM }, - qty => { uint => 1, range => [0,20] }, + qty => { uint => 1, range => [0,40] }, } }, gtin => { gtin => 1 }, catalog => { required => 0, default => '', maxlength => 50 }, |