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

Allow person to be correspondent, concerning or both

Browse Source
This commit is contained in:
Eike Kettner
2021-02-16 22:37:56 +01:00
parent 567bfb3e69
commit 48eee00c0b
19 changed files with 321 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/webapp/src/main/elm/Comp/ItemDetail/MultiEditMenu.elm
View File

@ -32,6 +32,7 @@ import Data.DropdownStyle
import Data.Fields
import Data.Flags exposing (Flags)
import Data.Icons as Icons
import Data.PersonUse
import Data.UiSettings exposing (UiSettings)
import DatePicker exposing (DatePicker)
import Html exposing (..)
@ -429,14 +430,14 @@ update flags msg model =
GetPersonResp (Ok ps) ->
let
( conc, corr ) =
List.partition .concerning ps.items
{ concerning, correspondent } =
Data.PersonUse.spanPersonList ps.items
concRefs =
List.map (\e -> IdName e.id e.name) conc
List.map (\e -> IdName e.id e.name) concerning
corrRefs =
List.map (\e -> IdName e.id e.name) corr
List.map (\e -> IdName e.id e.name) correspondent
res1 =
update flags (CorrPersonMsg (Comp.Dropdown.SetOptions corrRefs)) model

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

@ -49,6 +49,7 @@ import Data.Direction
import Data.Fields exposing (Field)
import Data.Flags exposing (Flags)
import Data.ItemNav exposing (ItemNav)
import Data.PersonUse
import Data.UiSettings exposing (UiSettings)
import DatePicker
import Dict
@ -612,8 +613,8 @@ update key flags inav settings msg model =
GetPersonResp (Ok ps) ->
let
( conc, corr ) =
List.partition .concerning ps.items
{ concerning, correspondent } =
Data.PersonUse.spanPersonList ps.items
personDict =
List.map (\p -> ( p.id, p )) ps.items
@ -632,10 +633,10 @@ update key flags inav settings msg model =
\_ -> True
concRefs =
List.map (\e -> IdName e.id e.name) conc
List.map (\e -> IdName e.id e.name) concerning
corrRefs =
List.filter personFilter corr
List.filter personFilter correspondent
|> List.map (\e -> IdName e.id e.name)
mkPersonOption idref =