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

Set an organization to a person in webapp

Browse Source
This commit is contained in:
Eike Kettner
2020-11-30 22:07:16 +01:00
parent 2e28c8e57b
commit a6dd71af9f
8 changed files with 215 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
View File

@ -1113,26 +1113,30 @@ update key flags inav settings msg model =
resultModel model
StartCorrPersonModal ->
resultModel
{ model
| modalEdit =
Just
(Comp.DetailEdit.initCorrPerson
model.item.id
Comp.PersonForm.emptyModel
)
}
let
( pm, pc ) =
Comp.DetailEdit.initCorrPerson
flags
model.item.id
Comp.PersonForm.emptyModel
in
resultModelCmd
( { model | modalEdit = Just pm }
, Cmd.map ModalEditMsg pc
)
StartConcPersonModal ->
resultModel
{ model
| modalEdit =
Just
(Comp.DetailEdit.initConcPerson
model.item.id
Comp.PersonForm.emptyModel
)
}
let
( p, c ) =
Comp.DetailEdit.initConcPerson
flags
model.item.id
Comp.PersonForm.emptyModel
in
resultModelCmd
( { model | modalEdit = Just p }
, Cmd.map ModalEditMsg c
)
StartEditPersonModal pm ->
let

1
modules/webapp/src/main/elm/Comp/ItemDetail/View.elm
View File

@ -17,7 +17,6 @@ import Comp.LinkTarget
import Comp.MarkdownInput
import Comp.SentMails
import Comp.YesNoDimmer
import Data.CustomFieldType
import Data.Direction
import Data.Fields
import Data.Icons as Icons