Edit direction of multiple items

This commit is contained in:
Eike Kettner
2020-10-26 12:48:15 +01:00
parent 42c989a6cd
commit d4043634ac
6 changed files with 55 additions and 17 deletions

View File

@ -82,6 +82,7 @@ module Api exposing
, setCorrOrg
, setCorrPerson
, setDirection
, setDirectionMultiple
, setFolder
, setFolderMultiple
, setItemDate
@ -134,6 +135,7 @@ import Api.Model.ItemLightList exposing (ItemLightList)
import Api.Model.ItemProposals exposing (ItemProposals)
import Api.Model.ItemSearch exposing (ItemSearch)
import Api.Model.ItemUploadMeta exposing (ItemUploadMeta)
import Api.Model.ItemsAndDirection exposing (ItemsAndDirection)
import Api.Model.ItemsAndName exposing (ItemsAndName)
import Api.Model.ItemsAndRef exposing (ItemsAndRef)
import Api.Model.ItemsAndRefs exposing (ItemsAndRefs)
@ -1328,6 +1330,20 @@ setFolderMultiple flags data receive =
}
setDirectionMultiple :
Flags
-> ItemsAndDirection
-> (Result Http.Error BasicResult -> msg)
-> Cmd msg
setDirectionMultiple flags data receive =
Http2.authPut
{ url = flags.config.baseUrl ++ "/api/v1/sec/items/direction"
, account = getAccount flags
, body = Http.jsonBody (Api.Model.ItemsAndDirection.encode data)
, expect = Http.expectJson receive Api.Model.BasicResult.decoder
}
--- Item

View File

@ -6,6 +6,7 @@ module Comp.ItemDetail.FormChange exposing
import Api
import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.IdName exposing (IdName)
import Api.Model.ItemsAndDirection exposing (ItemsAndDirection)
import Api.Model.ItemsAndName exposing (ItemsAndName)
import Api.Model.ItemsAndRef exposing (ItemsAndRef)
import Api.Model.ItemsAndRefs exposing (ItemsAndRefs)
@ -63,5 +64,12 @@ multiUpdate flags ids change receive =
in
Api.setFolderMultiple flags data receive
DirectionChange dir ->
let
data =
ItemsAndDirection items (Data.Direction.toString dir)
in
Api.setDirectionMultiple flags data receive
_ ->
Cmd.none