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

Allow providing values for custom fields in item detail

Browse Source
This commit is contained in:
Eike Kettner
2020-11-19 23:37:00 +01:00
parent e90f65f941
commit 4059ef31c1
6 changed files with 699 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,6 +13,7 @@ import Api.Model.ReferenceList exposing (ReferenceList)
import Api.Model.Tag exposing (Tag)
import Browser.Navigation as Nav
import Comp.AttachmentMeta
import Comp.CustomFieldMultiInput
import Comp.DatePicker
import Comp.DetailEdit
import Comp.Dropdown exposing (isDropdownChangeMsg)
@ -72,14 +73,24 @@ update key flags inav settings msg model =
( im, ic ) =
Comp.ItemMail.init flags
( cm, cc ) =
Comp.CustomFieldMultiInput.init flags
in
resultModelCmd
( { model | itemDatePicker = dp, dueDatePicker = dp, itemMail = im, visibleAttach = 0 }
( { model
| itemDatePicker = dp
, dueDatePicker = dp
, itemMail = im
, visibleAttach = 0
, customFieldsModel = cm
}
, Cmd.batch
[ getOptions flags
, Cmd.map ItemDatePickerMsg dpc
, Cmd.map DueDatePickerMsg dpc
, Cmd.map ItemMailMsg ic
, Cmd.map CustomFieldMsg cc
, Api.getSentMails flags model.item.id SentMailsResp
]
)
@ -1270,6 +1281,26 @@ update key flags inav settings msg model =
, linkTarget = lt
}
CustomFieldMsg lm ->
let
result =
Comp.CustomFieldMultiInput.update lm model.customFieldsModel
model_ =
{ model | customFieldsModel = result.model }
cmd_ =
Cmd.map CustomFieldMsg result.cmd
sub_ =
Sub.map CustomFieldMsg result.subs
in
{ model = model_
, cmd = cmd_
, sub = sub_
, linkTarget = Comp.LinkTarget.LinkNone
}
--- Helper