Fix tour for anonymous users

Author: janslifka

engine-wizard/elm/Wizard/Common/Driver.elm

@@ -2,7 +2,6 @@ port module Wizard.Common.Driver exposing
     ( DriverOptionsStep
     , TourConfig
     , TourId
-    , addCompletedTourIds
     , addModalDelay
     , addStep
     , init
@@ -14,7 +13,9 @@ port module Wizard.Common.Driver exposing
 import Gettext exposing (gettext)
 import Json.Encode as E
 import Json.Encode.Extra as E
+import Shared.Auth.Session as Session
 import String.Format as String
+import Wizard.Common.AppState exposing (AppState)
 
 
 type TourId
@@ -32,29 +33,26 @@ type TourConfig
 
 type alias TourConfigData =
     { tourId : String
+    , loggedIn : Bool
     , completedTourIds : List String
     , locale : Gettext.Locale
     , steps : List DriverOptionsStep
     , delay : Int
     }
 
 
-tourConfig : TourId -> Gettext.Locale -> TourConfig
-tourConfig (TourId id) locale =
+tourConfig : TourId -> AppState -> TourConfig
+tourConfig (TourId id) appState =
     TourConfig
         { tourId = id
-        , completedTourIds = []
-        , locale = locale
+        , loggedIn = Session.exists appState.session
+        , completedTourIds = appState.config.tours
+        , locale = appState.locale
         , steps = []
         , delay = 0
         }
 
 
-addCompletedTourIds : List String -> TourConfig -> TourConfig
-addCompletedTourIds completedTourIds (TourConfig config) =
-    TourConfig { config | completedTourIds = completedTourIds }
-
-
 addStep : DriverOptionsStep -> TourConfig -> TourConfig
 addStep step (TourConfig config) =
     TourConfig { config | steps = config.steps ++ [ step ] }
@@ -114,7 +112,7 @@ encodeStep step =
 
 init : TourConfig -> Cmd msg
 init (TourConfig config) =
-    if List.member config.tourId config.completedTourIds then
+    if not config.loggedIn || List.member config.tourId config.completedTourIds then
         Cmd.none
 
     else

engine-wizard/elm/Wizard/Dashboard/Update.elm

@@ -56,8 +56,7 @@ tour appState =
                 , description = gettext "We'll guide you through creating your data management plan." appState.locale
                 }
     in
-    Driver.tourConfig TourId.dashboard appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.dashboard appState
         |> Driver.addStep
             { element = Nothing
             , popover = firstStep

engine-wizard/elm/Wizard/Projects/Create/Update.elm

@@ -135,8 +135,7 @@ tour appState createFromTemplate createCustom =
                     }
                 }
     in
-    Driver.tourConfig TourId.projectsCreate appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.projectsCreate appState
         |> Driver.addStep
             { element = selectDataTour "form-group_name"
             , popover =

engine-wizard/elm/Wizard/Projects/Detail/Components/ShareModal.elm

@@ -129,8 +129,7 @@ openMsg =
 
 tour : AppState -> TourConfig
 tour appState =
-    Driver.tourConfig TourId.projectsDetailShareModal appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.projectsDetailShareModal appState
         |> Driver.addModalDelay
         |> Driver.addStep
             { element = selectDataTour "project-detail_share-modal_users"

engine-wizard/elm/Wizard/Projects/Detail/Update.elm

@@ -131,8 +131,7 @@ fetchSubrouteData appState model =
 
 tour : AppState -> TourConfig
 tour appState =
-    Driver.tourConfig TourId.projectsDetail appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.projectsDetail appState
         |> Driver.addStep
             { element = selectDataTour "questionnaire_body"
             , popover =

engine-wizard/elm/Wizard/Projects/Index/Update.elm

@@ -78,8 +78,7 @@ fetchData appState model =
 
 tour : AppState -> TourConfig
 tour appState =
-    Driver.tourConfig TourId.projectsIndex appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.projectsIndex appState
         |> Driver.addStep
             { element = Nothing
             , popover =

engine-wizard/elm/Wizard/Users/Edit/Components/Tours.elm

@@ -42,8 +42,7 @@ fetchData appState =
 
 tour : AppState -> TourConfig
 tour appState =
-    Driver.tourConfig TourId.usersEditTours appState.locale
-        |> Driver.addCompletedTourIds appState.config.tours
+    Driver.tourConfig TourId.usersEditTours appState
         |> Driver.addStep
             { element = Nothing
             , popover =