Edit name of multiple items

This commit is contained in:
Eike Kettner
2020-10-26 12:17:55 +01:00
parent 7ad37c8d26
commit 17472fa4ca
4 changed files with 100 additions and 39 deletions

View File

@ -88,6 +88,7 @@ module Api exposing
, setItemName
, setItemNotes
, setJobPrio
, setNameMultiple
, setTags
, setTagsMultiple
, setUnconfirmed
@ -132,6 +133,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.ItemsAndName exposing (ItemsAndName)
import Api.Model.ItemsAndRefs exposing (ItemsAndRefs)
import Api.Model.JobPriority exposing (JobPriority)
import Api.Model.JobQueueState exposing (JobQueueState)
@ -1296,6 +1298,20 @@ addTagsMultiple flags data receive =
}
setNameMultiple :
Flags
-> ItemsAndName
-> (Result Http.Error BasicResult -> msg)
-> Cmd msg
setNameMultiple flags data receive =
Http2.authPut
{ url = flags.config.baseUrl ++ "/api/v1/sec/items/name"
, account = getAccount flags
, body = Http.jsonBody (Api.Model.ItemsAndName.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.ItemsAndName exposing (ItemsAndName)
import Api.Model.ItemsAndRefs exposing (ItemsAndRefs)
import Api.Model.ReferenceList exposing (ReferenceList)
import Data.Direction exposing (Direction)
@ -47,5 +48,12 @@ multiUpdate flags ids change receive =
in
Api.setTagsMultiple flags data receive
NameChange name ->
let
data =
ItemsAndName items name
in
Api.setNameMultiple flags data receive
_ ->
Cmd.none