TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-04-05 02:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Only update category options if the query selected all tags

Browse Source 
The tag category is a bit special (sadly). The options are retrieved
by going through the tags. It must not update these, if a query
selects only a subset of tags.
This commit is contained in:
eikek 2021-06-16 00:14:35 +02:00
parent 31c4e14e76
commit 4a9ab2c1be
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
modules/webapp/src/main/elm/Comp/TagManage.elm
View File

@ -66,7 +66,7 @@ type Msg
= TableMsg Comp.TagTable.Msg
| FormMsg Comp.TagForm.Msg
| LoadTags
| TagResp (Result Http.Error TagList)
| TagResp String (Result Http.Error TagList)
| SetViewMode ViewMode
| InitNewTag
| Submit
@ -116,9 +116,9 @@ update flags msg model =
( { model | tagFormModel = m2 }, Cmd.map FormMsg c2 )
LoadTags ->
( { model | loading = True }, Api.getTags flags model.query TagResp )
( { model | loading = True }, Api.getTags flags model.query (TagResp model.query) )
TagResp (Ok tags) ->
TagResp query (Ok tags) ->
let
m2 =
{ model | viewMode = Table, loading = False }
@ -128,11 +128,15 @@ update flags msg model =
in
Util.Update.andThen1
[ update flags (TableMsg (Comp.TagTable.SetTags tags.items))
, update flags (FormMsg (Comp.TagForm.SetCategoryOptions cats))
, if query == "" then
update flags (FormMsg (Comp.TagForm.SetCategoryOptions cats))
else
\m -> ( m, Cmd.none )
]
m2
TagResp (Err _) ->
TagResp _ (Err _) ->
( { model | loading = False }, Cmd.none )
SetViewMode m ->
@ -213,7 +217,7 @@ update flags msg model =
m =
{ model | query = str }
in
( m, Api.getTags flags str TagResp )
( m, Api.getTags flags str (TagResp str) )