Require a time zone when formatting date-times

modules/webapp/elm.json

@@ -22,6 +22,7 @@
             "elm/url": "1.0.0",
             "elm-explorations/markdown": "1.0.0",
             "justinmimbs/date": "3.1.2",
+            "justinmimbs/timezone-data": "5.1.2",
             "norpan/elm-html5-drag-drop": "3.1.4",
             "pablohirafuji/elm-qrcode": "4.0.1",
             "ryannhg/date-format": "2.3.0",

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

@@ -68,7 +68,7 @@ updateWithSub : Msg -> Model -> ( Model, Cmd Msg, Sub Msg )
 updateWithSub msg model =
     let
         texts =
-            Messages.get <| App.Data.getUiLanguage model
+            Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
     in
     case msg of
         ToggleSidebar ->
@@ -648,7 +648,7 @@ initPage model_ page =
             { model_ | page = page }
 
         texts =
-            Messages.get <| App.Data.getUiLanguage model
+            Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
 
         noop =
             ( model, Cmd.none, Sub.none )

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

@@ -59,7 +59,7 @@ topNavUser : AuthResult -> Model -> Html Msg
 topNavUser auth model =
     let
         texts =
-            Messages.get <| App.Data.getUiLanguage model
+            Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
     in
     nav
         [ id "top-nav"
@@ -161,7 +161,7 @@ mainContent : Model -> Html Msg
 mainContent model =
     let
         texts =
-            Messages.get <| App.Data.getUiLanguage model
+            Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
     in
     div
         [ id "main"
@@ -227,12 +227,12 @@ langMenu : Model -> Html Msg
 langMenu model =
     let
         texts =
-            Messages.get <| App.Data.getUiLanguage model
+            Messages.get (App.Data.getUiLanguage model) model.uiSettings.timeZone
 
         langItem lang =
             let
                 langMsg =
-                    Messages.get lang
+                    Messages.get lang model.uiSettings.timeZone
             in
             a
                 [ classList

modules/webapp/src/main/elm/Comp/UiSettingsForm.elm

@@ -32,6 +32,7 @@ import Data.Flags exposing (Flags)
 import Data.ItemTemplate as IT exposing (ItemTemplate)
 import Data.Pdf exposing (PdfMode)
 import Data.TagOrder
+import Data.TimeZone
 import Data.UiSettings exposing (ItemPattern, StoredUiSettings, UiSettings)
 import Dict exposing (Dict)
 import Html exposing (..)
@@ -646,8 +647,8 @@ settingFormTabs : Texts -> Flags -> StoredUiSettings -> Model -> List (Comp.Tabs
 settingFormTabs texts flags _ model =
     let
         langCfg =
-            { display = \lang -> Messages.get lang |> .label
+            { display = \lang -> Messages.get lang Data.TimeZone.utc |> .label
-            , icon = \lang -> Just (Messages.get lang |> .flagIcon)
+            , icon = \lang -> Just (Messages.get lang Data.TimeZone.utc |> .flagIcon)
             , style = DS.mainStyle
             , selectPlaceholder = texts.basics.selectPlaceholder
             }

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

@@ -0,0 +1,47 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Data.TimeZone exposing (TimeZone, get, listAll, toName, toZone, utc)
+
+import Dict
+import Time exposing (Zone)
+import TimeZone as TZ
+
+
+type TimeZone
+    = TimeZone ( String, Zone )
+
+
+get : String -> Maybe TimeZone
+get name =
+    case String.toLower name of
+        "utc" ->
+            Just utc
+
+        _ ->
+            Dict.get name TZ.zones
+                |> Maybe.map (\z -> TimeZone ( name, z () ))
+
+
+toName : TimeZone -> String
+toName (TimeZone ( name, _ )) =
+    name
+
+
+toZone : TimeZone -> Zone
+toZone (TimeZone ( _, zone )) =
+    zone
+
+
+utc : TimeZone
+utc =
+    TimeZone ( "UTC", Time.utc )
+
+
+listAll : List String
+listAll =
+    "UTC" :: Dict.keys TZ.zones

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

@@ -40,6 +40,7 @@ import Data.Flags exposing (Flags)
 import Data.ItemArrange exposing (ItemArrange)
 import Data.ItemTemplate exposing (ItemTemplate)
 import Data.Pdf exposing (PdfMode)
+import Data.TimeZone exposing (TimeZone)
 import Data.UiTheme exposing (UiTheme)
 import Dict exposing (Dict)
 import Html exposing (Attribute, Html, embed, iframe)
@@ -80,6 +81,7 @@ type alias StoredUiSettings =
     , uiLang : Maybe String
     , itemSearchShowGroups : Maybe Bool
     , itemSearchArrange : Maybe String
+    , timeZone : Maybe String
     }
 
 
@@ -105,6 +107,7 @@ emptyStoredSettings =
     , uiLang = Nothing
     , itemSearchShowGroups = Nothing
     , itemSearchArrange = Nothing
+    , timeZone = Nothing
     }
 
 
@@ -141,6 +144,7 @@ storedUiSettingsDecoder =
         |> P.optional "uiLang" maybeString Nothing
         |> P.optional "itemSearchShowGroups" maybeBool Nothing
         |> P.optional "itemSearchArrange" maybeString Nothing
+        |> P.optional "timeZone" maybeString Nothing
 
 
 storedUiSettingsEncode : StoredUiSettings -> Encode.Value
@@ -173,6 +177,7 @@ storedUiSettingsEncode value =
             , maybeEnc "uiLang" Encode.string value.uiLang
             , maybeEnc "itemSearchShowGroups" Encode.bool value.itemSearchShowGroups
             , maybeEnc "itemSearchArrange" Encode.string value.itemSearchArrange
+            , maybeEnc "timeZone" Encode.string value.timeZone
             ]
 
 
@@ -205,6 +210,7 @@ type alias UiSettings =
     , uiLang : UiLanguage
     , itemSearchShowGroups : Bool
     , itemSearchArrange : ItemArrange
+    , timeZone : TimeZone
     }
 
 
@@ -248,6 +254,7 @@ defaults =
     , uiLang = Messages.UiLanguage.English
     , itemSearchShowGroups = True
     , itemSearchArrange = Data.ItemArrange.Cards
+    , timeZone = Data.TimeZone.utc
     }
 
 
@@ -306,6 +313,9 @@ merge given fallback =
     , itemSearchArrange =
         Maybe.andThen Data.ItemArrange.fromString given.itemSearchArrange
             |> Maybe.withDefault fallback.itemSearchArrange
+    , timeZone =
+        Maybe.andThen Data.TimeZone.get given.timeZone
+            |> Maybe.withDefault fallback.timeZone
     }
 
 
@@ -344,6 +354,7 @@ convert settings =
     , uiLang = Just <| Messages.toIso2 settings.uiLang
     , itemSearchShowGroups = Just settings.itemSearchShowGroups
     , itemSearchArrange = Data.ItemArrange.asString settings.itemSearchArrange |> Just
+    , timeZone = Data.TimeZone.toName settings.timeZone |> Just
     }
 
 

modules/webapp/src/main/elm/Messages.elm

@@ -12,6 +12,7 @@ module Messages exposing
     , toIso2
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.App
 import Messages.Page.CollectiveSettings
 import Messages.Page.Dashboard
@@ -33,6 +34,7 @@ import Messages.UiLanguage exposing (UiLanguage(..))
 -}
 type alias Messages =
     { lang : UiLanguage
+    , timeZone : TimeZone
     , iso2 : String
     , label : String
     , flagIcon : String
@@ -53,21 +55,21 @@ type alias Messages =
     }
 
 
-get : UiLanguage -> Messages
+get : UiLanguage -> TimeZone -> Messages
-get lang =
+get lang tz =
     case lang of
         English ->
-            gb
+            gb tz
 
         German ->
-            de
+            de tz
 
 
 {-| Get a ISO-3166-1 code of the given lanugage.
 -}
 toIso2 : UiLanguage -> String
 toIso2 lang =
-    get lang |> .iso2
+    get lang Data.TimeZone.utc |> .iso2
 
 
 {-| Return the UiLanguage from given iso2 code. If the iso2 code is not
@@ -98,47 +100,49 @@ fromIso2 iso =
 -- use two classes: flag-icon flag-icon-xx where xx is the two-letter country code
 
 
-gb : Messages
+gb : TimeZone -> Messages
-gb =
+gb tz =
     { lang = English
+    , timeZone = tz
     , iso2 = "gb"
     , label = "English"
     , flagIcon = "flag-icon flag-icon-gb"
     , app = Messages.App.gb
-    , collectiveSettings = Messages.Page.CollectiveSettings.gb
+    , collectiveSettings = Messages.Page.CollectiveSettings.gb tz
     , login = Messages.Page.Login.gb
     , register = Messages.Page.Register.gb
     , newInvite = Messages.Page.NewInvite.gb
     , upload = Messages.Page.Upload.gb
-    , itemDetail = Messages.Page.ItemDetail.gb
+    , itemDetail = Messages.Page.ItemDetail.gb tz
-    , queue = Messages.Page.Queue.gb
+    , queue = Messages.Page.Queue.gb tz
-    , userSettings = Messages.Page.UserSettings.gb
+    , userSettings = Messages.Page.UserSettings.gb tz
-    , manageData = Messages.Page.ManageData.gb
+    , manageData = Messages.Page.ManageData.gb tz
-    , search = Messages.Page.Search.gb
+    , search = Messages.Page.Search.gb tz
-    , share = Messages.Page.Share.gb
+    , share = Messages.Page.Share.gb tz
-    , shareDetail = Messages.Page.ShareDetail.gb
+    , shareDetail = Messages.Page.ShareDetail.gb tz
-    , dashboard = Messages.Page.Dashboard.gb
+    , dashboard = Messages.Page.Dashboard.gb tz
     }
 
 
-de : Messages
+de : TimeZone -> Messages
-de =
+de tz =
     { lang = German
+    , timeZone = tz
     , iso2 = "de"
     , label = "Deutsch"
     , flagIcon = "flag-icon flag-icon-de"
     , app = Messages.App.de
-    , collectiveSettings = Messages.Page.CollectiveSettings.de
+    , collectiveSettings = Messages.Page.CollectiveSettings.de tz
     , login = Messages.Page.Login.de
     , register = Messages.Page.Register.de
     , newInvite = Messages.Page.NewInvite.de
     , upload = Messages.Page.Upload.de
-    , itemDetail = Messages.Page.ItemDetail.de
+    , itemDetail = Messages.Page.ItemDetail.de tz
-    , queue = Messages.Page.Queue.de
+    , queue = Messages.Page.Queue.de tz
-    , userSettings = Messages.Page.UserSettings.de
+    , userSettings = Messages.Page.UserSettings.de tz
-    , manageData = Messages.Page.ManageData.de
+    , manageData = Messages.Page.ManageData.de tz
-    , search = Messages.Page.Search.de
+    , search = Messages.Page.Search.de tz
-    , share = Messages.Page.Share.de
+    , share = Messages.Page.Share.de tz
-    , shareDetail = Messages.Page.ShareDetail.de
+    , shareDetail = Messages.Page.ShareDetail.de tz
-    , dashboard = Messages.Page.Dashboard.de
+    , dashboard = Messages.Page.Dashboard.de tz
     }

modules/webapp/src/main/elm/Messages/Comp/AttachmentMeta.elm

@@ -11,6 +11,7 @@ module Messages.Comp.AttachmentMeta exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -35,8 +36,8 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
     , extractedMetadata = "Extracted Meta Data"
@@ -49,12 +50,12 @@ gb =
     , concerningEquipment = "Concerning Equipment"
     , itemDate = "Item Date"
     , itemDueDate = "Item Due Date"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , httpError = Messages.Comp.HttpError.de
     , extractedMetadata = "Extrahierte Metadaten"
@@ -67,5 +68,5 @@ de =
     , concerningEquipment = "Betreffende Ausstattung"
     , itemDate = "Datum"
     , itemDueDate = "Fälligkeitsdatum"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
     }

modules/webapp/src/main/elm/Messages/Comp/BoxQueryView.elm

@@ -8,6 +8,7 @@
 module Messages.Comp.BoxQueryView exposing (Texts, de, gb)
 
 import Data.ItemTemplate as IT
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -27,30 +28,30 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { httpError = Messages.Comp.HttpError.gb
     , errorOccurred = "Error retrieving data."
     , basics = Messages.Basics.gb
     , noResults = "No items found."
     , templateCtx =
-        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.English
+        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.English tz
-        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.English
+        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.English tz
         , directionLabel = Messages.Data.Direction.gb
         }
     , itemColumn = Messages.Data.ItemColumn.gb
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { httpError = Messages.Comp.HttpError.de
     , errorOccurred = "Fehler beim Laden der Daten."
     , basics = Messages.Basics.de
     , noResults = "Keine Dokumente gefunden."
     , templateCtx =
-        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.German
+        { dateFormatLong = DF.formatDateLong Messages.UiLanguage.German tz
-        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.German
+        , dateFormatShort = DF.formatDateShort Messages.UiLanguage.German tz
         , directionLabel = Messages.Data.Direction.de
         }
     , itemColumn = Messages.Data.ItemColumn.de

modules/webapp/src/main/elm/Messages/Comp/BoxView.elm

@@ -7,6 +7,7 @@
 
 module Messages.Comp.BoxView exposing (Texts, de, gb)
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Comp.BoxQueryView
 import Messages.Comp.BoxStatsView
 import Messages.Comp.BoxUploadView
@@ -19,17 +20,17 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { queryView = Messages.Comp.BoxQueryView.gb
+    { queryView = Messages.Comp.BoxQueryView.gb tz
     , statsView = Messages.Comp.BoxStatsView.gb
     , uploadView = Messages.Comp.BoxUploadView.gb
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { queryView = Messages.Comp.BoxQueryView.de
+    { queryView = Messages.Comp.BoxQueryView.de tz
     , statsView = Messages.Comp.BoxStatsView.de
     , uploadView = Messages.Comp.BoxUploadView.de
     }

modules/webapp/src/main/elm/Messages/Comp/CalEventInput.elm

@@ -11,6 +11,7 @@ module Messages.Comp.CalEventInput exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Comp.HttpError
 import Messages.DateFormat as DF
@@ -32,8 +33,8 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { weekday = "Weekday"
     , year = "Year"
     , month = "Month"
@@ -43,13 +44,13 @@ gb =
     , error = "Error"
     , schedule = "Schedule"
     , next = "Next"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     , httpError = Messages.Comp.HttpError.gb
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { weekday = "Wochentag"
     , year = "Jahr"
     , month = "Monat"
@@ -59,6 +60,6 @@ de =
     , error = "Fehler"
     , schedule = "Zeitplan"
     , next = "Nächste Zeiten"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     , httpError = Messages.Comp.HttpError.de
     }

modules/webapp/src/main/elm/Messages/Comp/ClassifierSettingsForm.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ClassifierSettingsForm exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.CalEventInput
 
@@ -28,10 +29,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , calEventInput = Messages.Comp.CalEventInput.gb
+    , calEventInput = Messages.Comp.CalEventInput.gb tz
     , autoTaggingText =
         """
 
@@ -53,10 +54,10 @@ Use an empty whitelist to disable auto tagging.
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , calEventInput = Messages.Comp.CalEventInput.de
+    , calEventInput = Messages.Comp.CalEventInput.de tz
     , autoTaggingText =
         """
 

modules/webapp/src/main/elm/Messages/Comp/CollectiveSettingsForm.elm

@@ -12,6 +12,7 @@ module Messages.Comp.CollectiveSettingsForm exposing
     )
 
 import Data.Language exposing (Language)
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.ClassifierSettingsForm
@@ -49,11 +50,11 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.gb
+    , classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.gb tz
-    , emptyTrashForm = Messages.Comp.EmptyTrashForm.gb
+    , emptyTrashForm = Messages.Comp.EmptyTrashForm.gb tz
     , httpError = Messages.Comp.HttpError.gb
     , save = "Save"
     , saveSettings = "Save Settings"
@@ -84,11 +85,11 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.de
+    , classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.de tz
-    , emptyTrashForm = Messages.Comp.EmptyTrashForm.de
+    , emptyTrashForm = Messages.Comp.EmptyTrashForm.de tz
     , httpError = Messages.Comp.HttpError.de
     , save = "Speichern"
     , saveSettings = "Einstellungen speichern"

modules/webapp/src/main/elm/Messages/Comp/CustomFieldManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.CustomFieldManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.CustomFieldForm
 import Messages.Comp.CustomFieldTable
@@ -25,21 +26,21 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , fieldForm = Messages.Comp.CustomFieldForm.gb
-    , fieldTable = Messages.Comp.CustomFieldTable.gb
+    , fieldTable = Messages.Comp.CustomFieldTable.gb tz
     , addCustomField = "Add a new custom field"
     , newCustomField = "New custom field"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , fieldForm = Messages.Comp.CustomFieldForm.de
-    , fieldTable = Messages.Comp.CustomFieldTable.de
+    , fieldTable = Messages.Comp.CustomFieldTable.de tz
     , addCustomField = "Ein neues Benutzerfeld anlegen"
     , newCustomField = "Neues Benutzerfeld"
     }

modules/webapp/src/main/elm/Messages/Comp/CustomFieldTable.elm

@@ -11,6 +11,7 @@ module Messages.Comp.CustomFieldTable exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -25,21 +26,21 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , nameLabel = "Name/Label"
     , format = "Format"
     , usageCount = "#Usage"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , nameLabel = "Name/Label"
     , format = "Format"
     , usageCount = "#Nutzung"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
     }

modules/webapp/src/main/elm/Messages/Comp/DashboardView.elm

@@ -7,6 +7,7 @@
 
 module Messages.Comp.DashboardView exposing (Texts, de, gb)
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Comp.BoxView
 
 
@@ -15,13 +16,13 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { boxView = Messages.Comp.BoxView.gb
+    { boxView = Messages.Comp.BoxView.gb tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { boxView = Messages.Comp.BoxView.de
+    { boxView = Messages.Comp.BoxView.de tz
     }

modules/webapp/src/main/elm/Messages/Comp/DueItemsTaskForm.elm

@@ -11,6 +11,7 @@ module Messages.Comp.DueItemsTaskForm exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.CalEventInput
@@ -57,10 +58,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , calEventInput = Messages.Comp.CalEventInput.gb
+    , calEventInput = Messages.Comp.CalEventInput.gb tz
     , httpError = Messages.Comp.HttpError.gb
     , channelForm = Messages.Comp.ChannelForm.gb
     , tagDropdown = Messages.Comp.TagDropdown.gb
@@ -98,10 +99,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , calEventInput = Messages.Comp.CalEventInput.de
+    , calEventInput = Messages.Comp.CalEventInput.de tz
     , httpError = Messages.Comp.HttpError.de
     , channelForm = Messages.Comp.ChannelForm.de
     , tagDropdown = Messages.Comp.TagDropdown.de

modules/webapp/src/main/elm/Messages/Comp/DueItemsTaskManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.DueItemsTaskManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.DueItemsTaskForm
@@ -34,10 +35,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , notificationForm = Messages.Comp.DueItemsTaskForm.gb
+    , notificationForm = Messages.Comp.DueItemsTaskForm.gb tz
     , notificationTable = Messages.Comp.DueItemsTaskList.gb
     , httpError = Messages.Comp.HttpError.gb
     , channelType = Messages.Data.ChannelType.gb
@@ -50,10 +51,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , notificationForm = Messages.Comp.DueItemsTaskForm.de
+    , notificationForm = Messages.Comp.DueItemsTaskForm.de tz
     , notificationTable = Messages.Comp.DueItemsTaskList.de
     , httpError = Messages.Comp.HttpError.de
     , channelType = Messages.Data.ChannelType.de

modules/webapp/src/main/elm/Messages/Comp/EmptyTrashForm.elm

@@ -11,6 +11,7 @@ module Messages.Comp.EmptyTrashForm exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.CalEventInput
 
@@ -24,20 +25,20 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , calEventInput = Messages.Comp.CalEventInput.gb
+    , calEventInput = Messages.Comp.CalEventInput.gb tz
     , schedule = "Schedule"
     , minAge = "Minimum Age (Days)"
     , minAgeInfo = "The minimum age in days of an items to be removed. The last-update time is used."
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , calEventInput = Messages.Comp.CalEventInput.de
+    , calEventInput = Messages.Comp.CalEventInput.de tz
     , schedule = "Zeitplan"
     , minAge = "Mindestalter (Tage)"
     , minAgeInfo = "Das Mindestalter (in Tagen) der Dokumente, die gelöscht werden. Es wird das Datum der letzten Veränderung verwendet."

modules/webapp/src/main/elm/Messages/Comp/FolderManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.FolderManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.FolderDetail
 import Messages.Comp.FolderTable
@@ -26,22 +27,22 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , folderDetail = Messages.Comp.FolderDetail.gb
-    , folderTable = Messages.Comp.FolderTable.gb
+    , folderTable = Messages.Comp.FolderTable.gb tz
     , showOwningFoldersOnly = "Show owning folders only"
     , createNewFolder = "Create a new folder"
     , newFolder = "New Folder"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , folderDetail = Messages.Comp.FolderDetail.de
-    , folderTable = Messages.Comp.FolderTable.de
+    , folderTable = Messages.Comp.FolderTable.de tz
     , showOwningFoldersOnly = "Nur besitzende Ordner anzeigen"
     , createNewFolder = "Neuen Ordner anlegen"
     , newFolder = "Neuer Ordner"

modules/webapp/src/main/elm/Messages/Comp/FolderTable.elm

@@ -11,6 +11,7 @@ module Messages.Comp.FolderTable exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -24,19 +25,19 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , memberCount = "#Member"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.English tz
     , owner = "Owner"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , memberCount = "#Mitglieder"
-    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = DF.formatDateShort Messages.UiLanguage.German tz
     , owner = "Besitzer"
     }

modules/webapp/src/main/elm/Messages/Comp/ItemCard.elm

@@ -12,6 +12,7 @@ module Messages.Comp.ItemCard exposing
     )
 
 import Data.Direction exposing (Direction)
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Data.Direction
 import Messages.DateFormat
@@ -31,29 +32,29 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , dueOn = "Due on"
     , new = "New"
     , openAttachmentFile = "Open attachment file"
     , gotoDetail = "Go to detail view"
     , cycleAttachments = "Cycle attachments"
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
     , directionLabel = Messages.Data.Direction.gb
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , dueOn = "Fällig am"
     , new = "Neu"
     , openAttachmentFile = "Anhang öffnen"
     , gotoDetail = "Detailansicht"
     , cycleAttachments = "Anhänge durchschalten"
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
     , directionLabel = Messages.Data.Direction.de
     }

modules/webapp/src/main/elm/Messages/Comp/ItemCardList.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ItemCardList exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Comp.ItemCard
 
 
@@ -19,13 +20,13 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { itemCard = Messages.Comp.ItemCard.gb
+    { itemCard = Messages.Comp.ItemCard.gb tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { itemCard = Messages.Comp.ItemCard.de
+    { itemCard = Messages.Comp.ItemCard.de tz
     }

modules/webapp/src/main/elm/Messages/Comp/ItemDetail.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Comp.DetailEdit
 import Messages.Comp.HttpError
@@ -62,12 +63,12 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { addFilesForm = Messages.Comp.ItemDetail.AddFilesForm.gb
-    , itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.gb
+    , itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.gb tz
-    , singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.gb
+    , singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.gb tz
-    , sentMails = Messages.Comp.SentMails.gb
+    , sentMails = Messages.Comp.SentMails.gb tz
     , notes = Messages.Comp.ItemDetail.Notes.gb
     , itemMail = Messages.Comp.ItemMail.gb
     , detailEdit = Messages.Comp.DetailEdit.gb
@@ -91,7 +92,7 @@ gb =
     , createdOn = "Created on"
     , lastUpdateOn = "Last update on"
     , sendingMailNow = "Sending e-mail…"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     , mailSendSuccessful = "Mail sent."
     , showQrCode = "Show URL as QR code"
     , close = "Close"
@@ -100,12 +101,12 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { addFilesForm = Messages.Comp.ItemDetail.AddFilesForm.de
-    , itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.de
+    , itemInfoHeader = Messages.Comp.ItemDetail.ItemInfoHeader.de tz
-    , singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.de
+    , singleAttachment = Messages.Comp.ItemDetail.SingleAttachment.de tz
-    , sentMails = Messages.Comp.SentMails.de
+    , sentMails = Messages.Comp.SentMails.de tz
     , notes = Messages.Comp.ItemDetail.Notes.de
     , itemMail = Messages.Comp.ItemMail.de
     , detailEdit = Messages.Comp.DetailEdit.de
@@ -129,7 +130,7 @@ de =
     , createdOn = "Erstellt am"
     , lastUpdateOn = "Letzte Aktualisierung"
     , sendingMailNow = "E-Mail wird gesendet…"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     , mailSendSuccessful = "E-Mail wurde versendet."
     , showQrCode = "Link als QR code anzeigen"
     , close = "Schließen"

modules/webapp/src/main/elm/Messages/Comp/ItemDetail/EditForm.elm

@@ -12,6 +12,7 @@ module Messages.Comp.ItemDetail.EditForm exposing
     )
 
 import Data.Direction exposing (Direction)
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
 import Messages.Comp.TagDropdown
@@ -43,8 +44,8 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , customFieldInput = Messages.Comp.CustomFieldMultiInput.gb
     , tagDropdown = Messages.Comp.TagDropdown.gb
@@ -62,13 +63,13 @@ gb =
     , editEquipment = "Edit equipment"
     , suggestions = "Suggestions"
     , noSuggestions = "No suggestions"
-    , formatDate = DF.formatDateLong Messages.UiLanguage.English
+    , formatDate = DF.formatDateLong Messages.UiLanguage.English tz
     , direction = Messages.Data.Direction.gb
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , customFieldInput = Messages.Comp.CustomFieldMultiInput.de
     , tagDropdown = Messages.Comp.TagDropdown.de
@@ -86,6 +87,6 @@ de =
     , editEquipment = "Ausstattung ändern"
     , suggestions = "Vorschläge"
     , noSuggestions = "Keine Vorschläge"
-    , formatDate = DF.formatDateLong Messages.UiLanguage.German
+    , formatDate = DF.formatDateLong Messages.UiLanguage.German tz
     , direction = Messages.Data.Direction.de
     }

modules/webapp/src/main/elm/Messages/Comp/ItemDetail/ItemInfoHeader.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail.ItemInfoHeader exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -26,23 +27,23 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , itemDate = "Item Date"
     , dueDate = "Due Date"
     , source = "Source"
     , new = "New"
-    , formatDate = DF.formatDateLong Messages.UiLanguage.English
+    , formatDate = DF.formatDateLong Messages.UiLanguage.English tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , itemDate = "Datum"
     , dueDate = "Fälligkeitsdatum"
     , source = "Quelle"
     , new = "Neu"
-    , formatDate = DF.formatDateLong Messages.UiLanguage.German
+    , formatDate = DF.formatDateLong Messages.UiLanguage.German tz
     }

modules/webapp/src/main/elm/Messages/Comp/ItemDetail/SingleAttachment.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ItemDetail.SingleAttachment exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Comp.AttachmentMeta
 import Messages.Comp.ItemDetail.ConfirmModal
 
@@ -35,9 +36,9 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { attachmentMeta = Messages.Comp.AttachmentMeta.gb
+    { attachmentMeta = Messages.Comp.AttachmentMeta.gb tz
     , confirmModal = Messages.Comp.ItemDetail.ConfirmModal.gb
     , noName = "No name"
     , openFileInNewTab = "Open file in new tab"
@@ -56,9 +57,9 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { attachmentMeta = Messages.Comp.AttachmentMeta.de
+    { attachmentMeta = Messages.Comp.AttachmentMeta.de tz
     , confirmModal = Messages.Comp.ItemDetail.ConfirmModal.de
     , noName = "Kein Name"
     , openFileInNewTab = "Anhang im neuen Tab öffnen"

modules/webapp/src/main/elm/Messages/Comp/ItemMerge.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ItemMerge exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -35,15 +36,15 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
     , title = "Merge Items"
     , infoText = "When merging items the first item in the list acts as the target. Every other items metadata is copied into the target item. If the property is a single value (like correspondent), it is only set if not already present. Tags, custom fields and attachments are added. The items can be reordered using drag&drop."
     , deleteWarn = "Note that all items but the first one is deleted after a successful merge!"
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
     , submitMerge = "Merge"
     , submitMergeTitle = "Merge the documents now"
     , cancelMerge = "Cancel"
@@ -53,15 +54,15 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , httpError = Messages.Comp.HttpError.de
     , title = "Dokumente zusammenführen"
     , infoText = "Beim Zusammenführen der Dokumente, wird das erste in der Liste als Zieldokument verwendet. Die Metadaten der anderen Dokumente werden der Reihe nach auf des Zieldokument geschrieben. Metadaten die nur einen Wert haben, werden nur gesetzt falls noch kein Wert existiert. Tags, Benutzerfelder und Anhänge werden zu dem Zieldokument hinzugefügt. Die Einträge können mit Drag&Drop umgeordnet werden."
     , deleteWarn = "Bitte beachte, dass nach erfolgreicher Zusammenführung alle anderen Dokumente gelöscht werden!"
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
     , submitMerge = "Zusammenführen"
     , submitMergeTitle = "Dokumente jetzt zusammenführen"
     , cancelMerge = "Abbrechen"

modules/webapp/src/main/elm/Messages/Comp/OtpSetup.elm

@@ -11,6 +11,7 @@ module Messages.Comp.OtpSetup exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Comp.HttpError
 import Messages.DateFormat
@@ -43,10 +44,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { httpError = Messages.Comp.HttpError.gb
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
     , errorTitle = "Error"
     , stateErrorInfoText = "There was a problem determining the current state of your two factor authentication scheme:"
     , errorGeneratingQR = "Error generating QR Code"
@@ -70,10 +71,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { httpError = Messages.Comp.HttpError.de
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
     , errorTitle = "Fehler"
     , stateErrorInfoText = "Es gab ein Problem, den Status der Zwei-Faktor-Authentifizierung zu ermittlen:"
     , errorGeneratingQR = "Fehler beim Generieren des QR-Code"

modules/webapp/src/main/elm/Messages/Comp/PeriodicQueryTaskForm.elm

@@ -11,6 +11,7 @@ module Messages.Comp.PeriodicQueryTaskForm exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.BookmarkDropdown
@@ -49,10 +50,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , calEventInput = Messages.Comp.CalEventInput.gb
+    , calEventInput = Messages.Comp.CalEventInput.gb tz
     , channelForm = Messages.Comp.ChannelForm.gb
     , httpError = Messages.Comp.HttpError.gb
     , bookmarkDropdown = Messages.Comp.BookmarkDropdown.gb
@@ -83,10 +84,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , calEventInput = Messages.Comp.CalEventInput.de
+    , calEventInput = Messages.Comp.CalEventInput.de tz
     , channelForm = Messages.Comp.ChannelForm.de
     , httpError = Messages.Comp.HttpError.de
     , bookmarkDropdown = Messages.Comp.BookmarkDropdown.de

modules/webapp/src/main/elm/Messages/Comp/PeriodicQueryTaskManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.PeriodicQueryTaskManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -38,10 +39,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , notificationForm = Messages.Comp.PeriodicQueryTaskForm.gb
+    , notificationForm = Messages.Comp.PeriodicQueryTaskForm.gb tz
     , notificationTable = Messages.Comp.PeriodicQueryTaskList.gb
     , httpError = Messages.Comp.HttpError.gb
     , channelType = Messages.Data.ChannelType.gb
@@ -58,10 +59,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , notificationForm = Messages.Comp.PeriodicQueryTaskForm.de
+    , notificationForm = Messages.Comp.PeriodicQueryTaskForm.de tz
     , notificationTable = Messages.Comp.PeriodicQueryTaskList.de
     , httpError = Messages.Comp.HttpError.de
     , channelType = Messages.Data.ChannelType.de

modules/webapp/src/main/elm/Messages/Comp/PublishItems.elm

@@ -11,6 +11,7 @@ module Messages.Comp.PublishItems exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -43,17 +44,17 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
     , shareForm = Messages.Comp.ShareForm.gb
-    , shareView = Messages.Comp.ShareView.gb
+    , shareView = Messages.Comp.ShareView.gb tz
     , shareMail = Messages.Comp.ShareMail.gb
     , title = "Publish Items"
     , infoText = "Publishing items creates a cryptic link, which can be used by everyone to see the selected documents. This link cannot be guessed, but is public! It exists for a certain amount of time and can be further protected using a password."
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.English tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English tz
     , submitPublish = "Publish"
     , submitPublishTitle = "Publish the documents now"
     , cancelPublish = "Cancel"
@@ -66,17 +67,17 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , httpError = Messages.Comp.HttpError.de
     , shareForm = Messages.Comp.ShareForm.de
-    , shareView = Messages.Comp.ShareView.de
+    , shareView = Messages.Comp.ShareView.de tz
     , shareMail = Messages.Comp.ShareMail.de
     , title = "Dokumente publizieren"
     , infoText = "Beim Publizieren der Dokumente wird ein kryptischer Link erzeugt, mit welchem jeder die dahinter publizierten Dokumente einsehen kann. Dieser Link kann nicht erraten werden, ist aber öffentlich. Er ist zeitlich begrenzt und kann zusätzlich mit einem Passwort geschützt werden."
-    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German tz
-    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German tz
     , submitPublish = "Publizieren"
     , submitPublishTitle = "Dokumente jetzt publizieren"
     , cancelPublish = "Abbrechen"

modules/webapp/src/main/elm/Messages/Comp/ScanMailboxForm.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ScanMailboxForm exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.CalEventInput
@@ -80,10 +81,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , calEventInput = Messages.Comp.CalEventInput.gb
+    , calEventInput = Messages.Comp.CalEventInput.gb tz
     , httpError = Messages.Comp.HttpError.gb
     , tagDropdown = Messages.Comp.TagDropdown.gb
     , reallyDeleteTask = "Really delete this scan mailbox task?"
@@ -165,10 +166,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , calEventInput = Messages.Comp.CalEventInput.de
+    , calEventInput = Messages.Comp.CalEventInput.de tz
     , httpError = Messages.Comp.HttpError.de
     , tagDropdown = Messages.Comp.TagDropdown.de
     , reallyDeleteTask = "Den Auftrag wirklich löschen?"

modules/webapp/src/main/elm/Messages/Comp/ScanMailboxManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ScanMailboxManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -32,10 +33,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tb =
     { basics = Messages.Basics.gb
-    , form = Messages.Comp.ScanMailboxForm.gb
+    , form = Messages.Comp.ScanMailboxForm.gb tb
     , table = Messages.Comp.ScanMailboxTable.gb
     , httpError = Messages.Comp.HttpError.gb
     , newTask = "New Task"
@@ -47,10 +48,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , form = Messages.Comp.ScanMailboxForm.de
+    , form = Messages.Comp.ScanMailboxForm.de tz
     , table = Messages.Comp.ScanMailboxTable.de
     , httpError = Messages.Comp.HttpError.de
     , newTask = "Neuer Auftrag"

modules/webapp/src/main/elm/Messages/Comp/SentMails.elm

@@ -11,6 +11,7 @@ module Messages.Comp.SentMails exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.DateFormat as DF
 import Messages.UiLanguage
 
@@ -26,25 +27,25 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { from = "From"
     , date = "Date"
     , recipients = "Recipients"
     , subject = "Subject"
     , sent = "Sent"
     , sender = "Sender"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { from = "Von"
     , date = "Datum"
     , recipients = "Empfänger"
     , subject = "Betreff"
     , sent = "Gesendet"
     , sender = "Absender"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     }

modules/webapp/src/main/elm/Messages/Comp/ShareManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ShareManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -44,13 +45,13 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
-    , shareTable = Messages.Comp.ShareTable.gb
+    , shareTable = Messages.Comp.ShareTable.gb tz
     , shareForm = Messages.Comp.ShareForm.gb
-    , shareView = Messages.Comp.ShareView.gb
+    , shareView = Messages.Comp.ShareView.gb tz
     , shareMail = Messages.Comp.ShareMail.gb
     , newShare = "New share"
     , copyToClipboard = "Copy to clipboard"
@@ -69,12 +70,12 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , shareTable = Messages.Comp.ShareTable.de
+    , shareTable = Messages.Comp.ShareTable.de tz
     , shareForm = Messages.Comp.ShareForm.de
-    , shareView = Messages.Comp.ShareView.de
+    , shareView = Messages.Comp.ShareView.de tz
     , httpError = Messages.Comp.HttpError.de
     , shareMail = Messages.Comp.ShareMail.de
     , newShare = "Neue Freigabe"

modules/webapp/src/main/elm/Messages/Comp/ShareTable.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ShareTable exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -25,20 +26,20 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     , active = "Active"
     , publishUntil = "Publish Until"
     , user = "User"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     , active = "Aktiv"
     , publishUntil = "Publiziert bis"
     , user = "Benutzer"

modules/webapp/src/main/elm/Messages/Comp/ShareView.elm

@@ -11,6 +11,7 @@ module Messages.Comp.ShareView exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -32,10 +33,10 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , date = DF.formatDateLong Messages.UiLanguage.English
+    , date = DF.formatDateLong Messages.UiLanguage.English tz
     , qrCodeError = "Error generating QR Code."
     , expiredInfo = "This share has expired."
     , disabledInfo = "This share is disabled."
@@ -49,10 +50,10 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , date = DF.formatDateLong Messages.UiLanguage.German
+    , date = DF.formatDateLong Messages.UiLanguage.German tz
     , qrCodeError = "Fehler beim Erzeugen des QR-Codes."
     , expiredInfo = "Diese Freigabe ist abgelaufen."
     , disabledInfo = "Diese Freigae ist nicht aktiv."

modules/webapp/src/main/elm/Messages/Comp/UserManage.elm

@@ -11,6 +11,7 @@ module Messages.Comp.UserManage exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -38,9 +39,9 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { userTable = Messages.Comp.UserTable.gb
+    { userTable = Messages.Comp.UserTable.gb tz
     , userForm = Messages.Comp.UserForm.gb
     , basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
@@ -59,9 +60,9 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { userTable = Messages.Comp.UserTable.de
+    { userTable = Messages.Comp.UserTable.de tz
     , userForm = Messages.Comp.UserForm.de
     , basics = Messages.Basics.de
     , httpError = Messages.Comp.HttpError.de

modules/webapp/src/main/elm/Messages/Comp/UserTable.elm

@@ -11,6 +11,7 @@ module Messages.Comp.UserTable exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -28,8 +29,8 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , login = "Login"
     , state = "State"
@@ -37,12 +38,12 @@ gb =
     , email = "E-Mail"
     , logins = "Logins"
     , lastLogin = "Last Login"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , login = "Benutzername"
     , state = "Status"
@@ -50,5 +51,5 @@ de =
     , email = "E-Mail"
     , logins = "Anmeldungen"
     , lastLogin = "Letzte Anmeldung"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     }

modules/webapp/src/main/elm/Messages/DateFormat.elm

@@ -14,6 +14,7 @@ module Messages.DateFormat exposing
     , formatIsoDateTimeUtc
     )
 
+import Data.TimeZone exposing (TimeZone)
 import DateFormat exposing (Token)
 import DateFormat.Language as DL
 import Messages.UiLanguage exposing (UiLanguage(..))
@@ -44,8 +45,8 @@ get lang =
             de
 
 
-format : UiLanguage -> (DateTimeMsg -> List Token) -> Int -> String
+format : UiLanguage -> TimeZone -> (DateTimeMsg -> List Token) -> Int -> String
-format lang pattern millis =
+format lang zone pattern millis =
     let
         msg =
             get lang
@@ -53,27 +54,27 @@ format lang pattern millis =
         fmt =
             DateFormat.formatWithLanguage msg.lang (pattern msg)
     in
-    fmt Time.utc (Time.millisToPosix millis)
+    fmt (Data.TimeZone.toZone zone) (Time.millisToPosix millis)
 
 
-formatDateTimeLong : UiLanguage -> Int -> String
+formatDateTimeLong : UiLanguage -> TimeZone -> Int -> String
-formatDateTimeLong lang millis =
+formatDateTimeLong lang zone millis =
-    format lang .dateTimeLong millis
+    format lang zone .dateTimeLong millis
 
 
-formatDateLong : UiLanguage -> Int -> String
+formatDateLong : UiLanguage -> TimeZone -> Int -> String
-formatDateLong lang millis =
+formatDateLong lang zone millis =
-    format lang .dateLong millis
+    format lang zone .dateLong millis
 
 
-formatDateShort : UiLanguage -> Int -> String
+formatDateShort : UiLanguage -> TimeZone -> Int -> String
-formatDateShort lang millis =
+formatDateShort lang zone millis =
-    format lang .dateShort millis
+    format lang zone .dateShort millis
 
 
-formatDateTimeShort : UiLanguage -> Int -> String
+formatDateTimeShort : UiLanguage -> TimeZone -> Int -> String
-formatDateTimeShort lang millis =
+formatDateTimeShort lang zone millis =
-    format lang .dateTimeShort millis
+    format lang zone .dateTimeShort millis
 
 
 isoDateTimeFormatter : List Token

modules/webapp/src/main/elm/Messages/Page/CollectiveSettings.elm

@@ -11,6 +11,7 @@ module Messages.Page.CollectiveSettings exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.CollectiveSettingsForm
@@ -39,13 +40,13 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , userManage = Messages.Comp.UserManage.gb
+    , userManage = Messages.Comp.UserManage.gb tz
-    , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb
+    , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.gb tz
     , sourceManage = Messages.Comp.SourceManage.gb
-    , shareManage = Messages.Comp.ShareManage.gb
+    , shareManage = Messages.Comp.ShareManage.gb tz
     , httpError = Messages.Comp.HttpError.gb
     , collectiveSettings = "Collective Settings"
     , insights = "Insights"
@@ -59,13 +60,13 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , userManage = Messages.Comp.UserManage.de
+    , userManage = Messages.Comp.UserManage.de tz
-    , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.de
+    , collectiveSettingsForm = Messages.Comp.CollectiveSettingsForm.de tz
     , sourceManage = Messages.Comp.SourceManage.de
-    , shareManage = Messages.Comp.ShareManage.de
+    , shareManage = Messages.Comp.ShareManage.de tz
     , httpError = Messages.Comp.HttpError.de
     , collectiveSettings = "Kollektiveinstellungen"
     , insights = "Statistiken"

modules/webapp/src/main/elm/Messages/Page/Dashboard.elm

@@ -7,6 +7,7 @@
 
 module Messages.Page.Dashboard exposing (Texts, de, gb)
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.BookmarkChooser
 import Messages.Comp.DashboardManage
@@ -55,21 +56,21 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , bookmarkChooser = Messages.Comp.BookmarkChooser.gb
     , notificationHookManage = Messages.Comp.NotificationHookManage.gb
-    , periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.gb
+    , periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.gb tz
     , sourceManage = Messages.Comp.SourceManage.gb
-    , shareManage = Messages.Comp.ShareManage.gb
+    , shareManage = Messages.Comp.ShareManage.gb tz
     , organizationManage = Messages.Comp.OrgManage.gb
     , personManage = Messages.Comp.PersonManage.gb
     , equipManage = Messages.Comp.EquipmentManage.gb
     , tagManage = Messages.Comp.TagManage.gb
-    , folderManage = Messages.Comp.FolderManage.gb
+    , folderManage = Messages.Comp.FolderManage.gb tz
     , uploadForm = Messages.Comp.UploadForm.gb
-    , dashboard = Messages.Comp.DashboardView.gb
+    , dashboard = Messages.Comp.DashboardView.gb tz
     , dashboardManage = Messages.Comp.DashboardManage.gb
     , defaultDashboard = Messages.Page.DefaultDashboard.gb
     , accountScope = Messages.Data.AccountScope.gb
@@ -86,21 +87,21 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , bookmarkChooser = Messages.Comp.BookmarkChooser.de
     , notificationHookManage = Messages.Comp.NotificationHookManage.de
-    , periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.de
+    , periodicQueryManage = Messages.Comp.PeriodicQueryTaskManage.de tz
     , sourceManage = Messages.Comp.SourceManage.de
-    , shareManage = Messages.Comp.ShareManage.de
+    , shareManage = Messages.Comp.ShareManage.de tz
     , organizationManage = Messages.Comp.OrgManage.de
     , personManage = Messages.Comp.PersonManage.de
     , equipManage = Messages.Comp.EquipmentManage.de
     , tagManage = Messages.Comp.TagManage.de
-    , folderManage = Messages.Comp.FolderManage.de
+    , folderManage = Messages.Comp.FolderManage.de tz
     , uploadForm = Messages.Comp.UploadForm.de
-    , dashboard = Messages.Comp.DashboardView.de
+    , dashboard = Messages.Comp.DashboardView.de tz
     , dashboardManage = Messages.Comp.DashboardManage.de
     , defaultDashboard = Messages.Page.DefaultDashboard.de
     , accountScope = Messages.Data.AccountScope.de

modules/webapp/src/main/elm/Messages/Page/ItemDetail.elm

@@ -11,6 +11,7 @@ module Messages.Page.ItemDetail exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Comp.ItemDetail
 import Messages.Comp.ItemDetail.EditForm
 
@@ -23,19 +24,19 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
-    { itemDetail = Messages.Comp.ItemDetail.gb
+    { itemDetail = Messages.Comp.ItemDetail.gb tz
-    , editForm = Messages.Comp.ItemDetail.EditForm.gb
+    , editForm = Messages.Comp.ItemDetail.EditForm.gb tz
     , editMetadata = "Edit Metadata"
     , collapseExpand = "Collapse/Expand"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
-    { itemDetail = Messages.Comp.ItemDetail.de
+    { itemDetail = Messages.Comp.ItemDetail.de tz
-    , editForm = Messages.Comp.ItemDetail.EditForm.de
+    , editForm = Messages.Comp.ItemDetail.EditForm.de tz
     , editMetadata = "Metadaten ändern"
     , collapseExpand = "Aus-/Einklappen"
     }

modules/webapp/src/main/elm/Messages/Page/ManageData.elm

@@ -11,6 +11,7 @@ module Messages.Page.ManageData exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.BookmarkManage
 import Messages.Comp.CustomFieldManage
@@ -35,30 +36,30 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , tagManage = Messages.Comp.TagManage.gb
     , equipmentManage = Messages.Comp.EquipmentManage.gb
     , orgManage = Messages.Comp.OrgManage.gb
     , personManage = Messages.Comp.PersonManage.gb
-    , folderManage = Messages.Comp.FolderManage.gb
+    , folderManage = Messages.Comp.FolderManage.gb tz
-    , customFieldManage = Messages.Comp.CustomFieldManage.gb
+    , customFieldManage = Messages.Comp.CustomFieldManage.gb tz
     , bookmarkManage = Messages.Comp.BookmarkManage.gb
     , manageData = "Manage Data"
     , bookmarks = "Bookmarks"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , tagManage = Messages.Comp.TagManage.de
     , equipmentManage = Messages.Comp.EquipmentManage.de
     , orgManage = Messages.Comp.OrgManage.de
     , personManage = Messages.Comp.PersonManage.de
-    , folderManage = Messages.Comp.FolderManage.de
+    , folderManage = Messages.Comp.FolderManage.de tz
-    , customFieldManage = Messages.Comp.CustomFieldManage.de
+    , customFieldManage = Messages.Comp.CustomFieldManage.de tz
     , bookmarkManage = Messages.Comp.BookmarkManage.de
     , manageData = "Daten verwalten"
     , bookmarks = "Bookmarks"

modules/webapp/src/main/elm/Messages/Page/Queue.elm

@@ -11,6 +11,7 @@ module Messages.Page.Queue exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -44,8 +45,8 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , httpError = Messages.Comp.HttpError.gb
     , currentlyRunning = "Currently Running"
@@ -66,13 +67,13 @@ gb =
     , retries = "Retries"
     , changePriority = "Change priority of this job"
     , prio = "Prio"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English tz
     , sidebarTitle = "Processing"
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , httpError = Messages.Comp.HttpError.de
     , currentlyRunning = "Wird ausgeführt"
@@ -93,6 +94,6 @@ de =
     , retries = "Versuche"
     , changePriority = "Priorität des Jobs ändern"
     , prio = "Prio"
-    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German
+    , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.German tz
     , sidebarTitle = "Verarbeitung"
     }

modules/webapp/src/main/elm/Messages/Page/Search.elm

@@ -11,6 +11,7 @@ module Messages.Page.Search exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.BookmarkQueryManage
 import Messages.Comp.ItemCardList
@@ -61,14 +62,14 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
-    , itemCardList = Messages.Comp.ItemCardList.gb
+    , itemCardList = Messages.Comp.ItemCardList.gb tz
     , searchStatsView = Messages.Comp.SearchStatsView.gb
     , sideMenu = Messages.Page.SearchSideMenu.gb
-    , itemMerge = Messages.Comp.ItemMerge.gb
+    , itemMerge = Messages.Comp.ItemMerge.gb tz
-    , publishItems = Messages.Comp.PublishItems.gb
+    , publishItems = Messages.Comp.PublishItems.gb tz
     , bookmarkManage = Messages.Comp.BookmarkQueryManage.gb
     , contentSearch = "Content search…"
     , searchInNames = "Search in names…"
@@ -103,14 +104,14 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
-    , itemCardList = Messages.Comp.ItemCardList.de
+    , itemCardList = Messages.Comp.ItemCardList.de tz
     , searchStatsView = Messages.Comp.SearchStatsView.de
     , sideMenu = Messages.Page.SearchSideMenu.de
-    , itemMerge = Messages.Comp.ItemMerge.de
+    , itemMerge = Messages.Comp.ItemMerge.de tz
-    , publishItems = Messages.Comp.PublishItems.de
+    , publishItems = Messages.Comp.PublishItems.de tz
     , bookmarkManage = Messages.Comp.BookmarkQueryManage.de
     , contentSearch = "Volltextsuche…"
     , searchInNames = "Suche in Namen…"

modules/webapp/src/main/elm/Messages/Page/Share.elm

@@ -7,6 +7,7 @@
 
 module Messages.Page.Share exposing (..)
 
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -32,11 +33,11 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { searchMenu = Messages.Comp.SearchMenu.gb
     , basics = Messages.Basics.gb
-    , itemCardList = Messages.Comp.ItemCardList.gb
+    , itemCardList = Messages.Comp.ItemCardList.gb tz
     , passwordForm = Messages.Comp.SharePasswordForm.gb
     , authFailed = "This share does not exist."
     , httpError = Messages.Comp.HttpError.gb
@@ -50,11 +51,11 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { searchMenu = Messages.Comp.SearchMenu.de
     , basics = Messages.Basics.de
-    , itemCardList = Messages.Comp.ItemCardList.de
+    , itemCardList = Messages.Comp.ItemCardList.de tz
     , passwordForm = Messages.Comp.SharePasswordForm.de
     , authFailed = "Diese Freigabe existiert nicht."
     , httpError = Messages.Comp.HttpError.de

modules/webapp/src/main/elm/Messages/Page/ShareDetail.elm

@@ -8,6 +8,7 @@
 module Messages.Page.ShareDetail exposing (..)
 
 import Data.Fields exposing (Field)
+import Data.TimeZone exposing (TimeZone)
 import Http
 import Messages.Basics
 import Messages.Comp.HttpError
@@ -31,13 +32,13 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { passwordForm = Messages.Comp.SharePasswordForm.gb
     , basics = Messages.Basics.gb
     , field = Messages.Data.Fields.gb
-    , formatDateLong = Messages.DateFormat.formatDateLong English
+    , formatDateLong = Messages.DateFormat.formatDateLong English tz
-    , formatDateShort = Messages.DateFormat.formatDateShort English
+    , formatDateShort = Messages.DateFormat.formatDateShort English tz
     , authFailed = "This share does not exist."
     , httpError = Messages.Comp.HttpError.gb
     , tagsAndFields = "Tags & Fields"
@@ -46,13 +47,13 @@ gb =
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { passwordForm = Messages.Comp.SharePasswordForm.de
     , basics = Messages.Basics.de
     , field = Messages.Data.Fields.de
-    , formatDateLong = Messages.DateFormat.formatDateLong German
+    , formatDateLong = Messages.DateFormat.formatDateLong German tz
-    , formatDateShort = Messages.DateFormat.formatDateShort German
+    , formatDateShort = Messages.DateFormat.formatDateShort German tz
     , authFailed = "Diese Freigabe existiert nicht."
     , httpError = Messages.Comp.HttpError.de
     , tagsAndFields = "Tags & Felder"

modules/webapp/src/main/elm/Messages/Page/UserSettings.elm

@@ -11,6 +11,7 @@ module Messages.Page.UserSettings exposing
     , gb
     )
 
+import Data.TimeZone exposing (TimeZone)
 import Messages.Basics
 import Messages.Comp.ChangePasswordForm
 import Messages.Comp.DueItemsTaskManage
@@ -58,19 +59,19 @@ type alias Texts =
     }
 
 
-gb : Texts
+gb : TimeZone -> Texts
-gb =
+gb tz =
     { basics = Messages.Basics.gb
     , changePasswordForm = Messages.Comp.ChangePasswordForm.gb
     , uiSettingsManage = Messages.Comp.UiSettingsManage.gb
     , emailSettingsManage = Messages.Comp.EmailSettingsManage.gb
     , imapSettingsManage = Messages.Comp.ImapSettingsManage.gb
-    , notificationManage = Messages.Comp.DueItemsTaskManage.gb
+    , notificationManage = Messages.Comp.DueItemsTaskManage.gb tz
-    , scanMailboxManage = Messages.Comp.ScanMailboxManage.gb
+    , scanMailboxManage = Messages.Comp.ScanMailboxManage.gb tz
     , notificationHookManage = Messages.Comp.NotificationHookManage.gb
-    , periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.gb
+    , periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.gb tz
     , channelManage = Messages.Comp.NotificationChannelManage.gb
-    , otpSetup = Messages.Comp.OtpSetup.gb
+    , otpSetup = Messages.Comp.OtpSetup.gb tz
     , userSettings = "User Settings"
     , uiSettings = "UI Settings"
     , notifications = "Notifications"
@@ -121,19 +122,19 @@ must be created before.
     }
 
 
-de : Texts
+de : TimeZone -> Texts
-de =
+de tz =
     { basics = Messages.Basics.de
     , changePasswordForm = Messages.Comp.ChangePasswordForm.de
     , uiSettingsManage = Messages.Comp.UiSettingsManage.de
     , emailSettingsManage = Messages.Comp.EmailSettingsManage.de
     , imapSettingsManage = Messages.Comp.ImapSettingsManage.de
-    , notificationManage = Messages.Comp.DueItemsTaskManage.de
+    , notificationManage = Messages.Comp.DueItemsTaskManage.de tz
-    , scanMailboxManage = Messages.Comp.ScanMailboxManage.de
+    , scanMailboxManage = Messages.Comp.ScanMailboxManage.de tz
     , notificationHookManage = Messages.Comp.NotificationHookManage.de
-    , periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.de
+    , periodicQueryTask = Messages.Comp.PeriodicQueryTaskManage.de tz
     , channelManage = Messages.Comp.NotificationChannelManage.de
-    , otpSetup = Messages.Comp.OtpSetup.de
+    , otpSetup = Messages.Comp.OtpSetup.de tz
     , userSettings = "Benutzereinstellung"
     , uiSettings = "Oberfläche"
     , notifications = "Benachrichtigungen"

modules/webapp/src/main/elm/Page/Dashboard/DefaultDashboard.elm

@@ -41,7 +41,7 @@ getDefaultDashboard flags settings =
             Data.UiSettings.getUiLanguage flags settings Messages.UiLanguage.English
 
         texts =
-            Messages.get lang
+            Messages.get lang settings.timeZone
     in
     value texts.dashboard.defaultDashboard