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

Allow a collective to disable the integration endpoint

Browse Source
This commit is contained in:
Eike Kettner
2020-05-23 13:53:36 +02:00
parent f74f8e5198
commit f16632bc7f
14 changed files with 138 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/webapp/src/main/elm/Page/CollectiveSettings/Update.elm
View File

@@ -2,7 +2,7 @@ module Page.CollectiveSettings.Update exposing (update)
import Api
import Api.Model.BasicResult exposing (BasicResult)
import Comp.Settings
import Comp.CollectiveSettingsForm
import Comp.SourceManage
import Comp.UserManage
import Data.Flags exposing (Flags)
@@ -45,10 +45,10 @@ update flags msg model =
in
( { model | userModel = m2 }, Cmd.map UserMsg c2 )
SettingsMsg m ->
SettingsFormMsg m ->
let
( m2, c2, msett ) =
Comp.Settings.update flags m model.settingsModel
Comp.CollectiveSettingsForm.update flags m model.settingsModel
cmd =
case msett of
@@ -58,7 +58,9 @@ update flags msg model =
Just sett ->
Api.setCollectiveSettings flags sett SubmitResp
in
( { model | settingsModel = m2, submitResult = Nothing }, Cmd.batch [ cmd, Cmd.map SettingsMsg c2 ] )
( { model | settingsModel = m2, submitResult = Nothing }
, Cmd.batch [ cmd, Cmd.map SettingsFormMsg c2 ]
)
Init ->
( { model | submitResult = Nothing }
@@ -75,7 +77,7 @@ update flags msg model =
( model, Cmd.none )
CollectiveSettingsResp (Ok data) ->
( { model | settingsModel = Comp.Settings.init data }, Cmd.none )
( { model | settingsModel = Comp.CollectiveSettingsForm.init data }, Cmd.none )
CollectiveSettingsResp (Err _) ->
( model, Cmd.none )