c3d2/yammat
c3d2
/
yammat
38
0
Fork 1
Code Issues Pull Requests Releases Activity

fixed missing ident field in supplier modification form

This commit is contained in:
nek0 2015-10-11 21:03:25 +02:00
parent 3f718ca75b
commit 303c2716f1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/Supplier.hs
View File

@ -41,7 +41,8 @@ newSupplierForm = renderDivs $ Supplier
optionsPairs $ map (\ent -> ((avatarIdent $ entityVal ent), entityKey ent)) ents optionsPairs $ map (\ent -> ((avatarIdent $ entityVal ent), entityKey ent)) ents
data SupConf = SupConf data SupConf = SupConf
{ supConfAddr :: Textarea { supConfIdent :: Text
, supConfAddr :: Textarea
, supConfTel :: Text , supConfTel :: Text
, supConfEmail :: Text , supConfEmail :: Text
, supConfCustomerId :: Text , supConfCustomerId :: Text
@ -86,7 +87,8 @@ postModifySupplierR sId = do
modifySupplierForm :: Supplier -> Form SupConf modifySupplierForm :: Supplier -> Form SupConf
modifySupplierForm sup = renderDivs $ SupConf modifySupplierForm sup = renderDivs $ SupConf
<$> areq textareaField (fieldSettingsLabel MsgAddress) (Just $ supplierAddress sup) <$> areq textField (fieldSettingsLabel MsgName) (Just $ supplierIdent sup)
<*> areq textareaField (fieldSettingsLabel MsgAddress) (Just $ supplierAddress sup)
<*> areq textField (fieldSettingsLabel MsgTelNr) (Just $ supplierTel sup) <*> areq textField (fieldSettingsLabel MsgTelNr) (Just $ supplierTel sup)
<*> areq textField (fieldSettingsLabel MsgEmail) (Just $ supplierEmail sup) <*> areq textField (fieldSettingsLabel MsgEmail) (Just $ supplierEmail sup)
<*> areq textField (fieldSettingsLabel MsgCustomerId) (Just $ supplierCustomerId sup) <*> areq textField (fieldSettingsLabel MsgCustomerId) (Just $ supplierCustomerId sup)