TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 10:28:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Allow a comma and a point for money values

Browse Source
This commit is contained in:
Eike Kettner
2020-11-22 15:24:15 +01:00
parent bb19e02c66
commit c5ab663091
2 changed files with 26 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
modules/webapp/src/main/elm/Comp/CustomFieldInput.elm
View File

@ -131,14 +131,17 @@ initWith value =
Data.CustomFieldType.Numeric ->
let
( fm, _ ) =
updateFloatModel value.value string2Float
updateFloatModel value.value string2Float identity
in
NumberField fm
Data.CustomFieldType.Money ->
let
( fm, _ ) =
updateFloatModel value.value Data.Money.fromString
updateFloatModel
value.value
Data.Money.fromString
Data.Money.normalizeInput
in
MoneyField fm
@ -175,14 +178,18 @@ type alias UpdateResult =
}
updateFloatModel : String -> (String -> Result String Float) -> ( FloatModel, FieldResult )
updateFloatModel msg parse =
updateFloatModel :
String
-> (String -> Result String Float)
-> (String -> String)
-> ( FloatModel, FieldResult )
updateFloatModel msg parse normalize =
case parse msg of
Ok n ->
( { input = msg
( { input = normalize msg
, result = Ok n
}
, Value msg
, Value (normalize msg)
)
Err err ->
@ -216,7 +223,7 @@ update msg model =
( NumberMsg str, NumberField _ ) ->
let
( fm, res ) =
updateFloatModel str string2Float
updateFloatModel str string2Float identity
model_ =
{ model | fieldModel = NumberField fm }
@ -229,6 +236,7 @@ update msg model =
updateFloatModel
str
Data.Money.fromString
Data.Money.normalizeInput
model_ =
{ model | fieldModel = MoneyField fm }