TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-08 12:07:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Allow to add remaining metadata in item edit view

Browse Source
This commit is contained in:
Eike Kettner
2020-06-11 22:52:30 +02:00
parent 363eb81aff
commit 936177a910
3 changed files with 188 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
modules/webapp/src/main/elm/Api.elm
View File

@@ -1,5 +1,8 @@
module Api exposing
( addCorrOrg
( addConcEquip
, addConcPerson
, addCorrOrg
, addCorrPerson
, addTag
, cancelJob
, changePassword
@@ -1107,6 +1110,16 @@ setCorrPerson flags item id receive =
}
addCorrPerson : Flags -> String -> Person -> (Result Http.Error BasicResult -> msg) -> Cmd msg
addCorrPerson flags item person receive =
Http2.authPost
{ url = flags.config.baseUrl ++ "/api/v1/sec/item/" ++ item ++ "/corrPerson"
, account = getAccount flags
, body = Http.jsonBody (Api.Model.Person.encode person)
, expect = Http.expectJson receive Api.Model.BasicResult.decoder
}
setConcPerson : Flags -> String -> OptionalId -> (Result Http.Error BasicResult -> msg) -> Cmd msg
setConcPerson flags item id receive =
Http2.authPut
@@ -1117,6 +1130,16 @@ setConcPerson flags item id receive =
}
addConcPerson : Flags -> String -> Person -> (Result Http.Error BasicResult -> msg) -> Cmd msg
addConcPerson flags item person receive =
Http2.authPost
{ url = flags.config.baseUrl ++ "/api/v1/sec/item/" ++ item ++ "/concPerson"
, account = getAccount flags
, body = Http.jsonBody (Api.Model.Person.encode person)
, expect = Http.expectJson receive Api.Model.BasicResult.decoder
}
setConcEquip : Flags -> String -> OptionalId -> (Result Http.Error BasicResult -> msg) -> Cmd msg
setConcEquip flags item id receive =
Http2.authPut
@@ -1127,6 +1150,16 @@ setConcEquip flags item id receive =
}
addConcEquip : Flags -> String -> Equipment -> (Result Http.Error BasicResult -> msg) -> Cmd msg
addConcEquip flags item equip receive =
Http2.authPost
{ url = flags.config.baseUrl ++ "/api/v1/sec/item/" ++ item ++ "/concEquipment"
, account = getAccount flags
, body = Http.jsonBody (Api.Model.Equipment.encode equip)
, expect = Http.expectJson receive Api.Model.BasicResult.decoder
}
setItemName : Flags -> String -> OptionalText -> (Result Http.Error BasicResult -> msg) -> Cmd msg
setItemName flags item text receive =
Http2.authPut