itemdetail

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

@@ -8,6 +8,7 @@
 module Messages.Data.ContactType exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.ContactType exposing (ContactType(..))
@@ -49,3 +50,22 @@ de ct =
 
         Website ->
             "Webseite"
+
+
+fr : ContactType -> String
+fr ct =
+    case ct of
+        Phone ->
+            "Téléphone"
+
+        Mobile ->
+            "Portable"
+
+        Fax ->
+            "Fax"
+
+        Email ->
+            "Email"
+
+        Website ->
+            "Web"

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

@@ -8,6 +8,7 @@
 module Messages.Data.CustomFieldType exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.CustomFieldType exposing (CustomFieldType(..))
@@ -49,3 +50,22 @@ de ft =
 
         Money ->
             "Geldbetrag"
+
+
+fr : CustomFieldType -> String
+fr ft =
+    case ft of
+        Text ->
+            "Texte"
+
+        Numeric ->
+            "Numerique"
+
+        Date ->
+            "Date"
+
+        Boolean ->
+            "Booléen"
+
+        Money ->
+            "Monétaire"

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

@@ -8,6 +8,7 @@
 module Messages.Data.Direction exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.Direction exposing (Direction(..))
@@ -31,3 +32,13 @@ de dir =
 
         Outgoing ->
             "Ausgehend"
+
+
+fr : Direction -> String
+fr dir =
+    case dir of
+        Incoming ->
+            "Entrant"
+
+        Outgoing ->
+            "Sortant"

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

@@ -8,6 +8,7 @@
 module Messages.Data.EquipmentUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.EquipmentUse exposing (EquipmentUse(..))
@@ -31,3 +32,13 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : EquipmentUse -> String
+fr pu =
+    case pu of
+        Concerning ->
+            "Concerné"
+
+        Disabled ->
+            "Inactif"

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

@@ -8,6 +8,7 @@
 module Messages.Data.OrgUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.OrgUse exposing (OrgUse(..))
@@ -31,3 +32,13 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : OrgUse -> String
+fr pu =
+    case pu of
+        Correspondent ->
+            "Correspondant"
+
+        Disabled ->
+            "inactif"

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

@@ -8,6 +8,7 @@
 module Messages.Data.PersonUse exposing
     ( de
     , gb
+    , fr
     )
 
 import Data.PersonUse exposing (PersonUse(..))
@@ -43,3 +44,19 @@ de pu =
 
         Disabled ->
             "Deaktiviert"
+
+
+fr : PersonUse -> String
+fr pu =
+    case pu of
+        Correspondent ->
+            "Correspondante"
+
+        Concerning ->
+            "Concernée"
+
+        Both ->
+            "Les deux"
+
+        Disabled ->
+            "inactif"