Edit org/person/equipment of multiple items

modules/webapp/src/main/elm/Api.elm

@@ -77,10 +77,14 @@ module Api exposing
     , setAttachmentName
     , setCollectiveSettings
     , setConcEquip
+    , setConcEquipmentMultiple
     , setConcPerson
+    , setConcPersonMultiple
     , setConfirmed
     , setCorrOrg
+    , setCorrOrgMultiple
     , setCorrPerson
+    , setCorrPersonMultiple
     , setDateMultiple
     , setDirection
     , setDirectionMultiple
@@ -1375,6 +1379,62 @@ setDueDateMultiple flags data receive =
         }
 
 
+setCorrOrgMultiple :
+    Flags
+    -> ItemsAndRef
+    -> (Result Http.Error BasicResult -> msg)
+    -> Cmd msg
+setCorrOrgMultiple flags data receive =
+    Http2.authPut
+        { url = flags.config.baseUrl ++ "/api/v1/sec/items/corrOrg"
+        , account = getAccount flags
+        , body = Http.jsonBody (Api.Model.ItemsAndRef.encode data)
+        , expect = Http.expectJson receive Api.Model.BasicResult.decoder
+        }
+
+
+setCorrPersonMultiple :
+    Flags
+    -> ItemsAndRef
+    -> (Result Http.Error BasicResult -> msg)
+    -> Cmd msg
+setCorrPersonMultiple flags data receive =
+    Http2.authPut
+        { url = flags.config.baseUrl ++ "/api/v1/sec/items/corrPerson"
+        , account = getAccount flags
+        , body = Http.jsonBody (Api.Model.ItemsAndRef.encode data)
+        , expect = Http.expectJson receive Api.Model.BasicResult.decoder
+        }
+
+
+setConcPersonMultiple :
+    Flags
+    -> ItemsAndRef
+    -> (Result Http.Error BasicResult -> msg)
+    -> Cmd msg
+setConcPersonMultiple flags data receive =
+    Http2.authPut
+        { url = flags.config.baseUrl ++ "/api/v1/sec/items/concPerson"
+        , account = getAccount flags
+        , body = Http.jsonBody (Api.Model.ItemsAndRef.encode data)
+        , expect = Http.expectJson receive Api.Model.BasicResult.decoder
+        }
+
+
+setConcEquipmentMultiple :
+    Flags
+    -> ItemsAndRef
+    -> (Result Http.Error BasicResult -> msg)
+    -> Cmd msg
+setConcEquipmentMultiple flags data receive =
+    Http2.authPut
+        { url = flags.config.baseUrl ++ "/api/v1/sec/items/concEquipment"
+        , account = getAccount flags
+        , body = Http.jsonBody (Api.Model.ItemsAndRef.encode data)
+        , expect = Http.expectJson receive Api.Model.BasicResult.decoder
+        }
+
+
 
 --- Item
 

modules/webapp/src/main/elm/Comp/ItemDetail/FormChange.elm

@@ -86,5 +86,33 @@ multiUpdate flags ids change receive =
             in
             Api.setDueDateMultiple flags data receive
 
+        OrgChange ref ->
+            let
+                data =
+                    ItemsAndRef items (Maybe.map .id ref)
+            in
+            Api.setCorrOrgMultiple flags data receive
+
+        CorrPersonChange ref ->
+            let
+                data =
+                    ItemsAndRef items (Maybe.map .id ref)
+            in
+            Api.setCorrPersonMultiple flags data receive
+
+        ConcPersonChange ref ->
+            let
+                data =
+                    ItemsAndRef items (Maybe.map .id ref)
+            in
+            Api.setConcPersonMultiple flags data receive
+
+        EquipChange ref ->
+            let
+                data =
+                    ItemsAndRef items (Maybe.map .id ref)
+            in
+            Api.setConcEquipmentMultiple flags data receive
+
         _ ->
             Cmd.none