Fix translation for direction

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

@@ -24,6 +24,11 @@ type alias Texts =
     , httpError : Http.Error -> String
     , submitSuccessful : String
     , missingRequiredFields : String
+    , addTagHeader : String
+    , addPersonHeader : String
+    , addOrgHeader : String
+    , addEquipmentHeader : String
+    , addCustomFieldHeader : String
     }
 
 
@@ -38,6 +43,11 @@ gb =
     , httpError = Messages.Comp.HttpError.gb
     , submitSuccessful = "Successfully saved."
     , missingRequiredFields = "Please fill required fields."
+    , addTagHeader = "Add Tag"
+    , addPersonHeader = "Add Person"
+    , addOrgHeader = "Add Organization"
+    , addEquipmentHeader = "Add Equipment"
+    , addCustomFieldHeader = "Add Custom Field"
     }
 
 
@@ -52,4 +62,9 @@ de =
     , httpError = Messages.Comp.HttpError.de
     , submitSuccessful = "Erfolgreich gespeichert."
     , missingRequiredFields = "Bitte erforderliche Felder ausfüllen."
+    , addTagHeader = "Tag anlegen"
+    , addPersonHeader = "Person anlegen"
+    , addOrgHeader = "Organisation anlegen"
+    , addEquipmentHeader = "Zubehör anlegen"
+    , addCustomFieldHeader = "Benutzer-Feld anlegen"
     }

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

@@ -4,8 +4,10 @@ module Messages.Comp.ItemDetail.EditForm exposing
     , gb
     )
 
+import Data.Direction exposing (Direction)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
+import Messages.Data.Direction
 import Messages.DateFormat as DF
 import Messages.UiLanguage
 
@@ -27,6 +29,7 @@ type alias Texts =
     , editEquipment : String
     , suggestions : String
     , formatDate : Int -> String
+    , direction : Direction -> String
     }
 
 
@@ -48,6 +51,7 @@ gb =
     , editEquipment = "Edit equipment"
     , suggestions = "Suggestions"
     , formatDate = DF.formatDateLong Messages.UiLanguage.English
+    , direction = Messages.Data.Direction.gb
     }
 
 
@@ -69,4 +73,5 @@ de =
     , editEquipment = "Zubehör ändern"
     , suggestions = "Vorschläge"
     , formatDate = DF.formatDateLong Messages.UiLanguage.German
+    , direction = Messages.Data.Direction.de
     }

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

@@ -4,8 +4,10 @@ module Messages.Comp.ItemDetail.MultiEditMenu exposing
     , gb
     )
 
+import Data.Direction exposing (Direction)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
+import Messages.Data.Direction
 
 
 type alias Texts =
@@ -20,6 +22,7 @@ type alias Texts =
     , unconfirm : String
     , changeTagMode : String
     , dueDateTab : String
+    , direction : Direction -> String
     }
 
 
@@ -36,6 +39,7 @@ gb =
     , unconfirm = "Unconfirm"
     , changeTagMode = "Change tag edit mode"
     , dueDateTab = "Due Date"
+    , direction = Messages.Data.Direction.gb
     }
 
 
@@ -52,4 +56,5 @@ de =
     , unconfirm = "Widerufe Betätigung"
     , changeTagMode = "Wechsel den Änderungs-Modus für Tags"
     , dueDateTab = "Fälligkeits-Datum"
+    , direction = Messages.Data.Direction.de
     }

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

@@ -4,10 +4,12 @@ module Messages.Comp.SearchMenu exposing
     , gb
     )
 
+import Data.Direction exposing (Direction)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
 import Messages.Comp.FolderSelect
 import Messages.Comp.TagSelect
+import Messages.Data.Direction
 
 
 type alias Texts =
@@ -36,6 +38,7 @@ type alias Texts =
     , dueTo : String
     , sourceTab : String
     , searchInItemSource : String
+    , direction : Direction -> String
     }
 
 
@@ -66,6 +69,7 @@ gb =
     , dueTo = "Due To"
     , sourceTab = "Source"
     , searchInItemSource = "Search in item source…"
+    , direction = Messages.Data.Direction.gb
     }
 
 
@@ -96,4 +100,5 @@ de =
     , dueTo = "Fällig bis"
     , sourceTab = "Quelle"
     , searchInItemSource = "Suche in Dokument Quelle…"
+    , direction = Messages.Data.Direction.de
     }