diff options
author | Yorhel <git@yorhel.nl> | 2022-11-26 08:22:12 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2022-11-26 08:22:14 +0100 |
commit | ee27cc56df80847dca66960064c4622df02fcd76 (patch) | |
tree | 0ea76842addb7c2a3352c4cc318c5057e1d81a3c | |
parent | be8302bd0f99f2052fb8d87a5b16dcb40a80a542 (diff) |
ReleaseEdit: Automatically remove "-" from JAN codes
Fixes https://vndb.org/t950.1433
-rw-r--r-- | elm/ReleaseEdit.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elm/ReleaseEdit.elm b/elm/ReleaseEdit.elm index 8267aa40..c35f07c0 100644 --- a/elm/ReleaseEdit.elm +++ b/elm/ReleaseEdit.elm @@ -255,7 +255,7 @@ update msg model = MediaType n s -> ({ model | media = if s /= "unk" && n == List.length model.media then model.media ++ [{medium = s, qty = 1}] else modidx n (\m -> { m | medium = s }) model.media }, Cmd.none) MediaQty n i -> ({ model | media = modidx n (\m -> { m | qty = i }) model.media }, Cmd.none) MediaDel i -> ({ model | media = delidx i model.media }, Cmd.none) - Gtin s -> ({ model | gtin = s, gtinValid = s == "" || validateGtin s }, Cmd.none) + Gtin s -> ({ model | gtin = String.replace "-" "" s, gtinValid = s == "" || validateGtin s }, Cmd.none) Catalog s -> ({ model | catalog = s }, Cmd.none) Released d -> ({ model | released = d }, Cmd.none) Minage i -> ({ model | minage = i }, Cmd.none) |