Fix updating search view

For example, when content-search was activated the view was not
correctly updated after deleting or drag-and-drop.

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

@@ -83,7 +83,7 @@ view flags settings model =
                         ]
                     , a
                         [ class "borderless item"
-                        , onClick DoSearch
+                        , onClick (DoSearch BasicSearch)
                         , title "Run search query"
                         , href ""
                         , disabled model.searchInProgress
@@ -281,11 +281,11 @@ viewSearchBar flags model =
     let
         searchTypeItem =
             Comp.FixedDropdown.Item
-                model.searchTypeForm
-                (searchTypeString model.searchTypeForm)
+                model.searchTypeDropdownValue
+                (searchTypeString model.searchTypeDropdownValue)
 
         searchInput =
-            case model.searchTypeForm of
+            case model.searchTypeDropdownValue of
                 BasicSearch ->
                     model.searchMenuModel.allNameModel
 
@@ -326,9 +326,9 @@ viewSearchBar flags model =
                             , ( "loading spinner icon", model.searchInProgress )
                             ]
                         , href "#"
-                        , onClick DoSearch
+                        , onClick (DoSearch model.searchTypeDropdownValue)
                         ]
-                        (if hasMoreSearch model && model.searchTypeForm == BasicSearch then
+                        (if hasMoreSearch model && model.searchTypeDropdownValue == BasicSearch then
                             [ i [ class "icons search-corner-icons" ]
                                 [ i [ class "tiny blue circle icon" ] []
                                 ]
@@ -341,7 +341,7 @@ viewSearchBar flags model =
                         [ type_ "text"
                         , placeholder "Quick Search …"
                         , onInput SetBasicSearch
-                        , Util.Html.onKeyUpCode KeyUpMsg
+                        , Util.Html.onKeyUpCode KeyUpSearchbarMsg
                         , Maybe.map value searchInput
                             |> Maybe.withDefault (value "")
                         ]
@@ -381,7 +381,7 @@ hasMoreSearch model =
             Comp.SearchMenu.getItemSearch model.searchMenuModel
 
         is_ =
-            case model.searchType of
+            case model.lastSearchType of
                 BasicSearch ->
                     { is | allNames = Nothing }