TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-05 22:55:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Close task form after submitting and return to list view

Browse Source
This commit is contained in:
Eike Kettner 2020-06-13 14:40:13 +02:00
parent 2c13f9307c
commit bdfc151272
2 changed files with 40 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
modules/webapp/src/main/elm/Comp/NotificationManage.elm
View File

@ -34,7 +34,7 @@ type Msg
| DetailMsg Comp.NotificationForm.Msg
| GetDataResp (Result Http.Error NotificationSettingsList)
| NewTask
| SubmitResp (Result Http.Error BasicResult)
| SubmitResp Bool (Result Http.Error BasicResult)
| DeleteResp (Result Http.Error BasicResult)
@ -121,10 +121,10 @@ update flags msg model =
, result = Nothing
}
, if settings.id == "" then
Api.createNotifyDueItems flags settings SubmitResp
Api.createNotifyDueItems flags settings (SubmitResp True)
else
Api.updateNotifyDueItems flags settings SubmitResp
Api.updateNotifyDueItems flags settings (SubmitResp True)
)
Comp.NotificationForm.CancelAction ->
@ -140,7 +140,7 @@ update flags msg model =
| detailModel = Just mm
, result = Nothing
}
, Api.startOnceNotifyDueItems flags settings SubmitResp
, Api.startOnceNotifyDueItems flags settings (SubmitResp False)
)
Comp.NotificationForm.DeleteAction id ->
@ -168,12 +168,24 @@ update flags msg model =
in
( { model | detailModel = Just mm }, Cmd.map DetailMsg mc )
SubmitResp (Ok res) ->
( { model | result = Just res }
, Cmd.none
SubmitResp close (Ok res) ->
( { model
| result = Just res
, detailModel =
if close then
Nothing
else
model.detailModel
}
, if close then
initCmd flags
else
Cmd.none
)
SubmitResp (Err err) ->
SubmitResp _ (Err err) ->
( { model | result = Just (BasicResult False (Util.Http.errorToString err)) }
, Cmd.none
)

28
modules/webapp/src/main/elm/Comp/ScanMailboxManage.elm
View File

@ -34,7 +34,7 @@ type Msg
| DetailMsg Comp.ScanMailboxForm.Msg
| GetDataResp (Result Http.Error ScanMailboxSettingsList)
| NewTask
| SubmitResp (Result Http.Error BasicResult)
| SubmitResp Bool (Result Http.Error BasicResult)
| DeleteResp (Result Http.Error BasicResult)
@ -121,10 +121,10 @@ update flags msg model =
, result = Nothing
}
, if settings.id == "" then
Api.createScanMailbox flags settings SubmitResp
Api.createScanMailbox flags settings (SubmitResp True)
else
Api.updateScanMailbox flags settings SubmitResp
Api.updateScanMailbox flags settings (SubmitResp True)
)
Comp.ScanMailboxForm.CancelAction ->
@ -140,7 +140,7 @@ update flags msg model =
| detailModel = Just mm
, result = Nothing
}
, Api.startOnceScanMailbox flags settings SubmitResp
, Api.startOnceScanMailbox flags settings (SubmitResp False)
)
Comp.ScanMailboxForm.DeleteAction id ->
@ -168,12 +168,24 @@ update flags msg model =
in
( { model | detailModel = Just mm }, Cmd.map DetailMsg mc )
SubmitResp (Ok res) ->
( { model | result = Just res }
, Cmd.none
SubmitResp close (Ok res) ->
( { model
| result = Just res
, detailModel =
if close then
Nothing
else
model.detailModel
}
, if close then
initCmd flags
else
Cmd.none
)
SubmitResp (Err err) ->
SubmitResp _ (Err err) ->
( { model | result = Just (BasicResult False (Util.Http.errorToString err)) }
, Cmd.none
)