Reorganize messages to reflect page structure

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

@@ -0,0 +1,46 @@
+module Messages.Data.Color exposing (..)
+
+import Data.Color exposing (Color(..))
+
+
+gb : Color -> String
+gb color =
+    case color of
+        Red ->
+            "Rot"
+
+        Orange ->
+            "Orange"
+
+        Yellow ->
+            "Yellow"
+
+        Olive ->
+            "Olive"
+
+        Green ->
+            "Green"
+
+        Teal ->
+            "Teal"
+
+        Blue ->
+            "Blue"
+
+        Violet ->
+            "Violet"
+
+        Purple ->
+            "Purple"
+
+        Pink ->
+            "Pink"
+
+        Brown ->
+            "Brown"
+
+        Grey ->
+            "Grey"
+
+        Black ->
+            "Black"

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

@@ -0,0 +1,25 @@
+module Messages.Data.ContactType exposing (..)
+
+import Data.ContactType exposing (ContactType(..))
+
+
+gb : ContactType -> String
+gb ct =
+    case ct of
+        Phone ->
+            "Phone"
+
+        Mobile ->
+            "Mobile"
+
+        Fax ->
+            "Fax"
+
+        Email ->
+            "Email"
+
+        Docspell ->
+            "Docspell"
+
+        Website ->
+            "Website"

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

@@ -0,0 +1,22 @@
+module Messages.Data.CustomFieldType exposing (..)
+
+import Data.CustomFieldType exposing (CustomFieldType(..))
+
+
+gb : CustomFieldType -> String
+gb ft =
+    case ft of
+        Text ->
+            "Text"
+
+        Numeric ->
+            "Numeric"
+
+        Date ->
+            "Date"
+
+        Boolean ->
+            "Boolean"
+
+        Money ->
+            "Money"

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

@@ -0,0 +1,13 @@
+module Messages.Data.EquipmentUse exposing (..)
+
+import Data.EquipmentUse exposing (EquipmentUse(..))
+
+
+gb : EquipmentUse -> String
+gb pu =
+    case pu of
+        Concerning ->
+            "Concerning"
+
+        Disabled ->
+            "Disabled"

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

@@ -0,0 +1,43 @@
+module Messages.Data.Fields exposing (..)
+
+import Data.Fields exposing (Field(..))
+
+
+gb : Field -> String
+gb field =
+    case field of
+        Tag ->
+            "Tag"
+
+        Folder ->
+            "Folder"
+
+        CorrOrg ->
+            "Correspondent Organization"
+
+        CorrPerson ->
+            "Correspondent Person"
+
+        ConcPerson ->
+            "Concerning Person"
+
+        ConcEquip ->
+            "Concerned Equipment"
+
+        Date ->
+            "Date"
+
+        DueDate ->
+            "Due Date"
+
+        Direction ->
+            "Direction"
+
+        PreviewImage ->
+            "Preview Image"
+
+        CustomFields ->
+            "Custom Fields"
+
+        SourceName ->
+            "Item Source"

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

@@ -0,0 +1,52 @@
+module Messages.Data.Language exposing (..)
+
+import Data.Language exposing (Language(..))
+
+
+gb : Language -> String
+gb lang =
+    case lang of
+        German ->
+            "German"
+
+        English ->
+            "English"
+
+        French ->
+            "French"
+
+        Italian ->
+            "Italian"
+
+        Spanish ->
+            "Spanish"
+
+        Portuguese ->
+            "Portuguese"
+
+        Czech ->
+            "Czech"
+
+        Danish ->
+            "Danish"
+
+        Finnish ->
+            "Finnish"
+
+        Norwegian ->
+            "Norwegian"
+
+        Swedish ->
+            "Swedish"
+
+        Russian ->
+            "Russian"
+
+        Romanian ->
+            "Romanian"
+
+        Dutch ->
+            "Dutch"
+
+        Latvian ->
+            "Latvian"

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

@@ -0,0 +1,13 @@
+module Messages.Data.OrgUse exposing (..)
+
+import Data.OrgUse exposing (OrgUse(..))
+
+
+gb : OrgUse -> String
+gb pu =
+    case pu of
+        Correspondent ->
+            "Correspondent"
+
+        Disabled ->
+            "Disabled"

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

@@ -0,0 +1,19 @@
+module Messages.Data.PersonUse exposing (..)
+
+import Data.PersonUse exposing (PersonUse(..))
+
+
+gb : PersonUse -> String
+gb pu =
+    case pu of
+        Correspondent ->
+            "Correspondent"
+
+        Concerning ->
+            "Concerning"
+
+        Both ->
+            "Both"
+
+        Disabled ->
+            "Disabled"

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

@@ -0,0 +1,16 @@
+module Messages.Data.SSLType exposing (..)
+
+import Data.SSLType exposing (SSLType(..))
+
+
+gb : SSLType -> String
+gb st =
+    case st of
+        None ->
+            "None"
+
+        SSL ->
+            "SSL/TLS"
+
+        StartTLS ->
+            "StartTLS"