summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2022-11-26 08:22:12 +0100
committerYorhel <git@yorhel.nl>2022-11-26 08:22:14 +0100
commitee27cc56df80847dca66960064c4622df02fcd76 (patch)
tree0ea76842addb7c2a3352c4cc318c5057e1d81a3c
parentbe8302bd0f99f2052fb8d87a5b16dcb40a80a542 (diff)
ReleaseEdit: Automatically remove "-" from JAN codes
Fixes https://vndb.org/t950.1433
-rw-r--r--elm/ReleaseEdit.elm2
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)