Delete multiple items

modules/webapp/src/main/elm/Page/Home/Data.elm

@@ -169,6 +169,7 @@ type Msg
     | EditMenuMsg Comp.ItemDetail.EditMenu.Msg
     | MultiUpdateResp (Result Http.Error BasicResult)
     | ReplaceChangedItemsResp (Result Http.Error ItemLightList)
+    | DeleteAllResp (Result Http.Error BasicResult)
 
 
 type SearchType

modules/webapp/src/main/elm/Page/Home/Update.elm

@@ -346,7 +346,7 @@ update mId key flags settings msg model =
 
                         cmd =
                             if confirmed then
-                                Cmd.none
+                                Api.deleteAllItems flags svm.ids DeleteAllResp
 
                             else
                                 Cmd.none
@@ -373,6 +373,20 @@ update mId key flags settings msg model =
                 _ ->
                     noSub ( model, Cmd.none )
 
+        DeleteAllResp (Ok res) ->
+            if res.success then
+                let
+                    nm =
+                        { model | viewMode = SearchView }
+                in
+                doSearch flags settings False nm
+
+            else
+                noSub ( model, Cmd.none )
+
+        DeleteAllResp (Err _) ->
+            noSub ( model, Cmd.none )
+
         RequestDeleteSelected ->
             case model.viewMode of
                 SelectView svm ->