Store location name, group name and tax group description in order
Also delete compiled entry JS and add a Makefile
This commit is contained in:
+21
-3
@@ -227,15 +227,33 @@ view { globals, state } = case state of
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "group" ] [ text "Gruppe" ]
|
||||
, Select.view [ name "group", id "group" ] SetGroup model.group
|
||||
, Select.view [ name "group-id", id "group" ] SetGroup model.group
|
||||
, input
|
||||
[ type_ "hidden"
|
||||
, name "group-name"
|
||||
, value <| (Select.get model.group).name
|
||||
]
|
||||
[]
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "location" ] [ text "Raum" ]
|
||||
, Select.view [ name "location", id "location" ] SetLocation model.location
|
||||
, Select.view [ name "location-id", id "location" ] SetLocation model.location
|
||||
, input
|
||||
[ type_ "hidden"
|
||||
, name "location-name"
|
||||
, value <| (Select.get model.location).name
|
||||
]
|
||||
[]
|
||||
]
|
||||
, div [ class "form-input" ]
|
||||
[ label [ for "tax-group" ] [ text "Steuergruppe" ]
|
||||
, Select.view [ name "tax-group", id "tax-group" ] SetTaxGroup model.taxGroup
|
||||
, Select.view [ name "tax-group-id", id "tax-group" ] SetTaxGroup model.taxGroup
|
||||
, input
|
||||
[ type_ "hidden"
|
||||
, name "tax-group-description"
|
||||
, value <| (Select.get model.taxGroup).description
|
||||
]
|
||||
[]
|
||||
]
|
||||
, Html.map CalculatorMsg <| Calculator.view model.calculator (Select.get model.taxGroup)
|
||||
, div [ class "form-input" ]
|
||||
|
||||
Reference in New Issue
Block a user