Add ui-settings flag for side menus

modules/webapp/src/main/elm/App/Data.elm

@@ -66,12 +66,19 @@ init key url flags_ settings =
 
         ( csm, csc ) =
             Page.CollectiveSettings.Data.init flags
+
+        homeViewMode =
+            if settings.searchMenuVisible then
+                Page.Home.Data.SearchView
+
+            else
+                Page.Home.Data.SimpleView
     in
     ( { flags = flags
       , key = key
       , page = page
       , version = Api.Model.VersionInfo.empty
-      , homeModel = Page.Home.Data.init flags
+      , homeModel = Page.Home.Data.init flags homeViewMode
       , loginModel = Page.Login.Data.emptyModel
       , manageDataModel = mdm
       , collSettingsModel = csm

modules/webapp/src/main/elm/App/Update.elm

@@ -181,7 +181,8 @@ updateWithSub msg model =
         GetUiSettings settings ->
             Util.Update.andThen2
                 [ updateUserSettings Page.UserSettings.Data.UpdateSettings
-                , updateHome Page.Home.Data.DoSearch
+                , updateHome Page.Home.Data.UiSettingsUpdated
+                , updateItemDetail Page.ItemDetail.Data.UiSettingsUpdated
                 ]
                 { model | uiSettings = settings }