TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-07-04 16:48: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

60
modules/webapp/src/main/elm/Comp/DetailEdit.elm
View File

@ -30,6 +30,7 @@ import Api.Model.Equipment exposing (Equipment)
import Api.Model.NewCustomField exposing (NewCustomField)
import Api.Model.Organization exposing (Organization)
import Api.Model.Person exposing (Person)
import Api.Model.ReferenceList exposing (ReferenceList)
import Api.Model.Tag exposing (Tag)
import Comp.CustomFieldForm
import Comp.EquipmentForm
@ -134,7 +135,10 @@ editPerson flags persId pm =
, loading = True
, result = Nothing
}
, Api.getPersonFull persId flags GetPersonResp
, Cmd.batch
[ Api.getPersonFull persId flags GetPersonResp
, Api.getOrgLight flags GetOrgsResp
]
)
@ -150,14 +154,18 @@ editEquip flags equipId em =
)
initCorrPerson : String -> Comp.PersonForm.Model -> Model
initCorrPerson itemId pm =
init itemId (PMR pm)
initCorrPerson : Flags -> String -> Comp.PersonForm.Model -> ( Model, Cmd Msg )
initCorrPerson flags itemId pm =
( init itemId (PMR pm)
, Api.getOrgLight flags GetOrgsResp
)
initConcPerson : String -> Comp.PersonForm.Model -> Model
initConcPerson itemId pm =
init itemId (PMC pm)
initConcPerson : Flags -> String -> Comp.PersonForm.Model -> ( Model, Cmd Msg )
initConcPerson flags itemId pm =
( init itemId (PMC pm)
, Api.getOrgLight flags GetOrgsResp
)
initTag : String -> Comp.TagForm.Model -> Model
@ -198,6 +206,7 @@ type Msg
| GetOrgResp (Result Http.Error Organization)
| GetPersonResp (Result Http.Error Person)
| GetEquipResp (Result Http.Error Equipment)
| GetOrgsResp (Result Http.Error ReferenceList)
type Value
@ -304,6 +313,43 @@ update flags msg model =
, Nothing
)
GetOrgsResp (Ok list) ->
case model.form of
PMC pm ->
let
( p_, c_ ) =
Comp.PersonForm.update flags (Comp.PersonForm.SetOrgs list.items) pm
in
( { model
| loading = False
, form = PMC p_
}
, Cmd.map PersonMsg c_
, Nothing
)
PMR pm ->
let
( p_, c_ ) =
Comp.PersonForm.update flags (Comp.PersonForm.SetOrgs list.items) pm
in
( { model
| loading = False
, form = PMR p_
}
, Cmd.map PersonMsg c_
, Nothing
)
_ ->
( { model | loading = False }, Cmd.none, Nothing )
GetOrgsResp (Err err) ->
( { model | loading = False, result = Just (BasicResult False (Util.Http.errorToString err)) }
, Cmd.none
, Nothing
)
GetEquipResp (Ok equip) ->
case model.form of
EM em ->