Add German translation for Detail page

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

@@ -1,4 +1,7 @@
-module Messages.Data.ContactType exposing (gb)
+module Messages.Data.ContactType exposing
+    ( de
+    , gb
+    )
 
 import Data.ContactType exposing (ContactType(..))
 
@@ -23,3 +26,25 @@ gb ct =
 
         Website ->
             "Website"
+
+
+de : ContactType -> String
+de ct =
+    case ct of
+        Phone ->
+            "Telefon"
+
+        Mobile ->
+            "Mobil"
+
+        Fax ->
+            "Fax"
+
+        Email ->
+            "E-Mail"
+
+        Docspell ->
+            "Docspell"
+
+        Website ->
+            "Webseite"

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

@@ -1,4 +1,7 @@
-module Messages.Data.CustomFieldType exposing (gb)
+module Messages.Data.CustomFieldType exposing
+    ( de
+    , gb
+    )
 
 import Data.CustomFieldType exposing (CustomFieldType(..))
 
@@ -20,3 +23,22 @@ gb ft =
 
         Money ->
             "Money"
+
+
+de : CustomFieldType -> String
+de ft =
+    case ft of
+        Text ->
+            "Text"
+
+        Numeric ->
+            "Numerisch"
+
+        Date ->
+            "Datum"
+
+        Boolean ->
+            "Boolean"
+
+        Money ->
+            "Geldbetrag"

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

@@ -1,4 +1,7 @@
-module Messages.Data.EquipmentUse exposing (gb)
+module Messages.Data.EquipmentUse exposing
+    ( de
+    , gb
+    )
 
 import Data.EquipmentUse exposing (EquipmentUse(..))
 
@@ -11,3 +14,13 @@ gb pu =
 
         Disabled ->
             "Disabled"
+
+
+de : EquipmentUse -> String
+de pu =
+    case pu of
+        Concerning ->
+            "Betreffend"
+
+        Disabled ->
+            "Deaktiviert"

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

@@ -1,4 +1,7 @@
-module Messages.Data.OrgUse exposing (gb)
+module Messages.Data.OrgUse exposing
+    ( de
+    , gb
+    )
 
 import Data.OrgUse exposing (OrgUse(..))
 
@@ -11,3 +14,13 @@ gb pu =
 
         Disabled ->
             "Disabled"
+
+
+de : OrgUse -> String
+de pu =
+    case pu of
+        Correspondent ->
+            "Korrespondent"
+
+        Disabled ->
+            "Deaktiviert"

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

@@ -1,4 +1,7 @@
-module Messages.Data.PersonUse exposing (gb)
+module Messages.Data.PersonUse exposing
+    ( de
+    , gb
+    )
 
 import Data.PersonUse exposing (PersonUse(..))
 
@@ -17,3 +20,19 @@ gb pu =
 
         Disabled ->
             "Disabled"
+
+
+de : PersonUse -> String
+de pu =
+    case pu of
+        Correspondent ->
+            "Korrespondent"
+
+        Concerning ->
+            "Betreffend"
+
+        Both ->
+            "Beide"
+
+        Disabled ->
+            "Deaktiviert"