Externalize error messages

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

@@ -1,12 +1,15 @@
 module Messages.Comp.AttachmentMeta exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.DateFormat as DF
 import Messages.UiLanguage
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , extractedMetadata : String
     , content : String
     , labels : String
@@ -24,6 +27,7 @@ type alias Texts =
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , extractedMetadata = "Extracted Meta Data"
     , content = "Content"
     , labels = "Labels"

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

@@ -1,26 +1,36 @@
 module Messages.Comp.ChangePasswordForm exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , currentPassword : String
     , newPassword : String
     , repeatPassword : String
     , currentPasswordPlaceholder : String
     , newPasswordPlaceholder : String
     , repeatPasswordPlaceholder : String
+    , passwordMismatch : String
+    , fillRequiredFields : String
+    , passwordChangeSuccessful : String
     }
 
 
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , currentPassword = "Current Password"
     , newPassword = "New Password"
     , repeatPassword = "New Password (repeat)"
     , currentPasswordPlaceholder = "Password"
     , newPasswordPlaceholder = "Password"
     , repeatPasswordPlaceholder = "Password"
+    , passwordMismatch = "The passwords do not match."
+    , fillRequiredFields = "Please fill required fields."
+    , passwordChangeSuccessful = "Password has been changed."
     }

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

@@ -1,14 +1,17 @@
 module Messages.Comp.CollectiveSettingsForm exposing (Texts, gb)
 
 import Data.Language exposing (Language)
+import Http
 import Messages.Basics
 import Messages.Comp.ClassifierSettingsForm
+import Messages.Comp.HttpError
 import Messages.Data.Language
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , classifierSettingsForm : Messages.Comp.ClassifierSettingsForm.Texts
+    , httpError : Http.Error -> String
     , save : String
     , saveSettings : String
     , documentLanguage : String
@@ -22,6 +25,9 @@ type alias Texts =
     , autoTagging : String
     , startNow : String
     , languageLabel : Language -> String
+    , classifierTaskStarted : String
+    , fulltextReindexSubmitted : String
+    , fulltextReindexOkMissing : String
     }
 
 
@@ -29,6 +35,7 @@ gb : Texts
 gb =
     { basics = Messages.Basics.gb
     , classifierSettingsForm = Messages.Comp.ClassifierSettingsForm.gb
+    , httpError = Messages.Comp.HttpError.gb
     , save = "Save"
     , saveSettings = "Save Settings"
     , documentLanguage = "Document Language"
@@ -46,4 +53,8 @@ gb =
     , autoTagging = "Auto-Tagging"
     , startNow = "Start now"
     , languageLabel = Messages.Data.Language.gb
+    , classifierTaskStarted = "Classifier task started."
+    , fulltextReindexSubmitted = "Fulltext Re-Index started."
+    , fulltextReindexOkMissing =
+        "Please type OK in the field if you really want to start re-indexing your data."
     }

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

@@ -1,7 +1,9 @@
 module Messages.Comp.CustomFieldForm exposing (Texts, gb)
 
 import Data.CustomFieldType exposing (CustomFieldType)
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Data.CustomFieldType
 
 
@@ -9,6 +11,7 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , reallyDeleteField : String
     , fieldTypeLabel : CustomFieldType -> String
+    , httpError : Http.Error -> String
     , createCustomField : String
     , modifyTypeWarning : String
     , nameInfo : String
@@ -17,6 +20,9 @@ type alias Texts =
     , label : String
     , labelInfo : String
     , deleteThisField : String
+    , fieldNameRequired : String
+    , fieldTypeRequired : String
+    , updateSuccessful : String
     }
 
 
@@ -25,6 +31,7 @@ gb =
     { basics = Messages.Basics.gb
     , reallyDeleteField = "Really delete this custom field?"
     , fieldTypeLabel = Messages.Data.CustomFieldType.gb
+    , httpError = Messages.Comp.HttpError.gb
     , createCustomField = "Create a new custom field."
     , modifyTypeWarning =
         "Note that changing the format may "
@@ -41,4 +48,7 @@ gb =
         "The user defined label for this field. This is used to represent "
             ++ "this field in the ui. If not present, the name is used."
     , deleteThisField = "Delete this field"
+    , fieldNameRequired = "A name is required."
+    , fieldTypeRequired = "A type is required."
+    , updateSuccessful = "Field has been saved."
     }

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

@@ -1,8 +1,10 @@
 module Messages.Comp.DetailEdit exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.CustomFieldForm
 import Messages.Comp.EquipmentForm
+import Messages.Comp.HttpError
 import Messages.Comp.OrgForm
 import Messages.Comp.PersonForm
 import Messages.Comp.TagForm
@@ -15,6 +17,9 @@ type alias Texts =
     , orgForm : Messages.Comp.OrgForm.Texts
     , equipmentForm : Messages.Comp.EquipmentForm.Texts
     , customFieldForm : Messages.Comp.CustomFieldForm.Texts
+    , httpError : Http.Error -> String
+    , submitSuccessful : String
+    , missingRequiredFields : String
     }
 
 
@@ -26,4 +31,7 @@ gb =
     , orgForm = Messages.Comp.OrgForm.gb
     , equipmentForm = Messages.Comp.EquipmentForm.gb
     , customFieldForm = Messages.Comp.CustomFieldForm.gb
+    , httpError = Messages.Comp.HttpError.gb
+    , submitSuccessful = "Successfully saved."
+    , missingRequiredFields = "Please fill required fields."
     }

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

@@ -1,18 +1,22 @@
 module Messages.Comp.EmailSettingsManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.EmailSettingsForm
 import Messages.Comp.EmailSettingsTable
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , settingsForm : Messages.Comp.EmailSettingsForm.Texts
     , settingsTable : Messages.Comp.EmailSettingsTable.Texts
+    , httpError : Http.Error -> String
     , newSettings : String
     , addNewSmtpSettings : String
     , reallyDeleteConnection : String
     , deleteThisEntry : String
+    , fillRequiredFields : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , settingsForm = Messages.Comp.EmailSettingsForm.gb
     , settingsTable = Messages.Comp.EmailSettingsTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , newSettings = "New Settings"
     , addNewSmtpSettings = "Add new SMTP settings"
     , reallyDeleteConnection = "Really delete these connection?"
     , deleteThisEntry = "Delete this connection"
+    , fillRequiredFields = "Please fill required fields."
     }

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

@@ -1,18 +1,22 @@
 module Messages.Comp.EquipmentManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.EquipmentForm
 import Messages.Comp.EquipmentTable
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , equipmentTable : Messages.Comp.EquipmentTable.Texts
     , equipmentForm : Messages.Comp.EquipmentForm.Texts
+    , httpError : Http.Error -> String
     , createNewEquipment : String
     , newEquipment : String
     , reallyDeleteEquipment : String
     , deleteThisEquipment : String
+    , correctFormErrors : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , equipmentTable = Messages.Comp.EquipmentTable.gb
     , equipmentForm = Messages.Comp.EquipmentForm.gb
+    , httpError = Messages.Comp.HttpError.gb
     , createNewEquipment = "Create a new equipment"
     , newEquipment = "New Equipment"
     , reallyDeleteEquipment = "Really delete this equipment?"
     , deleteThisEquipment = "Delete this equipment"
+    , correctFormErrors = "Please correct the errors in the form."
     }

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

@@ -1,10 +1,13 @@
 module Messages.Comp.FolderDetail exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , reallyDeleteThisFolder : String
     , autoOwnerInfo : String
     , modifyInfo : String
@@ -14,12 +17,16 @@ type alias Texts =
     , add : String
     , removeMember : String
     , deleteThisFolder : String
+    , folderCreated : String
+    , nameChangeSuccessful : String
+    , deleteSuccessful : String
     }
 
 
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , reallyDeleteThisFolder = "Really delete this folder?"
     , autoOwnerInfo = "You are automatically set as owner of this new folder."
     , modifyInfo = "Modify this folder by changing the name or add/remove members."
@@ -29,4 +36,7 @@ gb =
     , add = "Add"
     , removeMember = "Remove this member"
     , deleteThisFolder = "Delete this folder"
+    , folderCreated = "Folder has been created."
+    , nameChangeSuccessful = "Name has been changed."
+    , deleteSuccessful = "Folder has been deleted."
     }

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

@@ -0,0 +1,71 @@
+module Messages.Comp.HttpError exposing (gb)
+
+import Http
+
+
+gb : Http.Error -> String
+gb err =
+    let
+        texts =
+            { badUrl = \url -> "There is something wrong with this url: " ++ url
+            , timeout = "There was a network timeout."
+            , networkError = "There was a network error."
+            , invalidResponseStatus =
+                \status ->
+                    "There was an invalid response status: " ++ String.fromInt status ++ "."
+            , invalidInput = "Invalid input when processing the request."
+            , notFound = "The requested resource doesn't exist."
+            , invalidBody = \str -> "There was an error decoding the response: " ++ str
+            }
+    in
+    errorToString texts err
+
+
+
+-- Error Utilities
+
+
+type alias Texts =
+    { badUrl : String -> String
+    , timeout : String
+    , networkError : String
+    , invalidResponseStatus : Int -> String
+    , invalidInput : String
+    , notFound : String
+    , invalidBody : String -> String
+    }
+
+
+errorToStringStatus : Texts -> Http.Error -> (Int -> String) -> String
+errorToStringStatus texts error statusString =
+    case error of
+        Http.BadUrl url ->
+            texts.badUrl url
+
+        Http.Timeout ->
+            texts.timeout
+
+        Http.NetworkError ->
+            texts.networkError
+
+        Http.BadStatus status ->
+            statusString status
+
+        Http.BadBody str ->
+            texts.invalidBody str
+
+
+errorToString : Texts -> Http.Error -> String
+errorToString texts error =
+    let
+        f sc =
+            if sc == 404 then
+                texts.notFound
+
+            else if sc >= 400 && sc < 500 then
+                texts.invalidInput
+
+            else
+                texts.invalidResponseStatus sc
+    in
+    errorToStringStatus texts error f

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

@@ -1,6 +1,8 @@
 module Messages.Comp.ImapSettingsManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.ImapSettingsForm
 import Messages.Comp.ImapSettingsTable
 
@@ -9,10 +11,12 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , imapForm : Messages.Comp.ImapSettingsForm.Texts
     , imapTable : Messages.Comp.ImapSettingsTable.Texts
+    , httpError : Http.Error -> String
     , addNewImapSettings : String
     , newSettings : String
     , reallyDeleteSettings : String
     , deleteThisEntry : String
+    , fillRequiredFields : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , imapForm = Messages.Comp.ImapSettingsForm.gb
     , imapTable = Messages.Comp.ImapSettingsTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , addNewImapSettings = "Add new IMAP settings"
     , newSettings = "New Settings"
     , reallyDeleteSettings = "Really delete this mail-box connection?"
     , deleteThisEntry = "Delete this settings entry"
+    , fillRequiredFields = "Please fill required fields."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.ItemDetail exposing (Texts, gb)
 
+import Http
 import Messages.Comp.DetailEdit
+import Messages.Comp.HttpError
 import Messages.Comp.ItemDetail.AddFilesForm
 import Messages.Comp.ItemDetail.ItemInfoHeader
 import Messages.Comp.ItemDetail.Notes
@@ -19,6 +21,7 @@ type alias Texts =
     , notes : Messages.Comp.ItemDetail.Notes.Texts
     , itemMail : Messages.Comp.ItemMail.Texts
     , detailEdit : Messages.Comp.DetailEdit.Texts
+    , httpError : Http.Error -> String
     , key : String
     , backToSearchResults : String
     , previousItem : String
@@ -37,6 +40,7 @@ type alias Texts =
     , lastUpdateOn : String
     , sendingMailNow : String
     , formatDateTime : Int -> String
+    , mailSendSuccessful : String
     }
 
 
@@ -49,6 +53,7 @@ gb =
     , notes = Messages.Comp.ItemDetail.Notes.gb
     , itemMail = Messages.Comp.ItemMail.gb
     , detailEdit = Messages.Comp.DetailEdit.gb
+    , httpError = Messages.Comp.HttpError.gb
     , key = "Key"
     , backToSearchResults = "Back to search results"
     , previousItem = "Previous item."
@@ -67,4 +72,5 @@ gb =
     , lastUpdateOn = "Last update on"
     , sendingMailNow = "Sending e-mail…"
     , formatDateTime = DF.formatDateTimeLong Messages.UiLanguage.English
+    , mailSendSuccessful = "Mail sent."
     }

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

@@ -1,10 +1,13 @@
 module Messages.Comp.ItemMail exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , httpError : Http.Error -> String
     , selectConnection : String
     , sendVia : String
     , recipients : String
@@ -13,12 +16,15 @@ type alias Texts =
     , subject : String
     , body : String
     , includeAllAttachments : String
+    , connectionMissing : String
+    , sendLabel : String
     }
 
 
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , selectConnection = "Select connection..."
     , sendVia = "Send via"
     , recipients = "Recipient(s)"
@@ -27,4 +33,6 @@ gb =
     , subject = "Subject"
     , body = "Body"
     , includeAllAttachments = "Include all item attachments"
+    , connectionMissing = "No E-Mail connections configured. Goto user settings to add one."
+    , sendLabel = "Send"
     }

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

@@ -1,12 +1,15 @@
 module Messages.Comp.NotificationForm exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.CalEventInput
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , calEventInput : Messages.Comp.CalEventInput.Texts
+    , httpError : Http.Error -> String
     , reallyDeleteTask : String
     , startOnce : String
     , startTaskNow : String
@@ -30,6 +33,10 @@ type alias Texts =
     , schedule : String
     , scheduleClickForHelp : String
     , scheduleInfo : String
+    , connectionMissing : String
+    , invalidCalEvent : String
+    , remindDaysRequired : String
+    , recipientsRequired : String
     }
 
 
@@ -37,6 +44,7 @@ gb : Texts
 gb =
     { basics = Messages.Basics.gb
     , calEventInput = Messages.Comp.CalEventInput.gb
+    , httpError = Messages.Comp.HttpError.gb
     , reallyDeleteTask = "Really delete this notification task?"
     , startOnce = "Start Once"
     , startTaskNow = "Start this task now"
@@ -64,4 +72,8 @@ gb =
             ++ "Use English 3-letter weekdays. Either a single value, "
             ++ "a list (ex. 1,2,3), a range (ex. 1..3) or a '*' (meaning all) "
             ++ "is allowed for each part."
+    , connectionMissing = "No E-Mail connections configured. Goto E-Mail Settings to add one."
+    , invalidCalEvent = "The calendar event is not valid."
+    , remindDaysRequired = "Remind-Days is required."
+    , recipientsRequired = "At least one recipient is required."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.NotificationManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.NotificationForm
 import Messages.Comp.NotificationTable
 
@@ -9,8 +11,13 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , notificationForm : Messages.Comp.NotificationForm.Texts
     , notificationTable : Messages.Comp.NotificationTable.Texts
+    , httpError : Http.Error -> String
     , newTask : String
     , createNewTask : String
+    , taskCreated : String
+    , taskUpdated : String
+    , taskStarted : String
+    , taskDeleted : String
     }
 
 
@@ -19,6 +26,11 @@ gb =
     { basics = Messages.Basics.gb
     , notificationForm = Messages.Comp.NotificationForm.gb
     , notificationTable = Messages.Comp.NotificationTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , newTask = "New Task"
     , createNewTask = "Create a new notification task"
+    , taskCreated = "Task created."
+    , taskUpdated = "Task updated."
+    , taskStarted = "Task started."
+    , taskDeleted = "Task deleted."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.OrgManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.OrgForm
 import Messages.Comp.OrgTable
 
@@ -9,10 +11,12 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , orgForm : Messages.Comp.OrgForm.Texts
     , orgTable : Messages.Comp.OrgTable.Texts
+    , httpError : Http.Error -> String
     , newOrganization : String
     , createNewOrganization : String
     , reallyDeleteOrg : String
     , deleteThisOrg : String
+    , correctFormErrors : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , orgForm = Messages.Comp.OrgForm.gb
     , orgTable = Messages.Comp.OrgTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , newOrganization = "New Organization"
     , createNewOrganization = "Create a new organization"
     , reallyDeleteOrg = "Really delete this organization?"
     , deleteThisOrg = "Delete this organization"
+    , correctFormErrors = "Please correct the errors in the form."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.PersonManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.PersonForm
 import Messages.Comp.PersonTable
 
@@ -9,10 +11,12 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , personForm : Messages.Comp.PersonForm.Texts
     , personTable : Messages.Comp.PersonTable.Texts
+    , httpError : Http.Error -> String
     , newPerson : String
     , createNewPerson : String
     , reallyDeletePerson : String
     , deleteThisPerson : String
+    , correctFormErrors : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , personForm = Messages.Comp.PersonForm.gb
     , personTable = Messages.Comp.PersonTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , newPerson = "New Person"
     , createNewPerson = "Create a new person"
     , reallyDeletePerson = "Really delete this person?"
     , deleteThisPerson = "Delete this person"
+    , correctFormErrors = "Please correct the errors in the form."
     }

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

@@ -1,12 +1,15 @@
 module Messages.Comp.ScanMailboxForm exposing (Texts, gb)
 
+import Http
 import Messages.Basics
 import Messages.Comp.CalEventInput
+import Messages.Comp.HttpError
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , calEventInput : Messages.Comp.CalEventInput.Texts
+    , httpError : Http.Error -> String
     , reallyDeleteTask : String
     , startOnce : String
     , startNow : String
@@ -54,6 +57,9 @@ type alias Texts =
     , schedule : String
     , scheduleClickForHelp : String
     , scheduleInfo : String
+    , connectionMissing : String
+    , noProcessingFolders : String
+    , invalidCalEvent : String
     }
 
 
@@ -61,6 +67,7 @@ gb : Texts
 gb =
     { basics = Messages.Basics.gb
     , calEventInput = Messages.Comp.CalEventInput.gb
+    , httpError = Messages.Comp.HttpError.gb
     , reallyDeleteTask = "Really delete this scan mailbox task?"
     , startOnce = "Start Once"
     , startNow = "Start this task now"
@@ -135,4 +142,7 @@ disappear then.
             ++ "Use English 3-letter weekdays. Either a single value, "
             ++ "a list (ex. 1,2,3), a range (ex. 1..3) or a '*' (meaning all) "
             ++ "is allowed for each part."
+    , connectionMissing = "No E-Mail connections configured. Goto E-Mail Settings to add one."
+    , noProcessingFolders = "No processing folders given."
+    , invalidCalEvent = "The calendar event is not valid."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.ScanMailboxManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.ScanMailboxForm
 import Messages.Comp.ScanMailboxTable
 
@@ -9,8 +11,13 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , form : Messages.Comp.ScanMailboxForm.Texts
     , table : Messages.Comp.ScanMailboxTable.Texts
+    , httpError : Http.Error -> String
     , newTask : String
     , createNewTask : String
+    , taskCreated : String
+    , taskUpdated : String
+    , taskStarted : String
+    , taskDeleted : String
     }
 
 
@@ -19,6 +26,11 @@ gb =
     { basics = Messages.Basics.gb
     , form = Messages.Comp.ScanMailboxForm.gb
     , table = Messages.Comp.ScanMailboxTable.gb
+    , httpError = Messages.Comp.HttpError.gb
     , newTask = "New Task"
     , createNewTask = "Create a new scan mailbox task"
+    , taskCreated = "Task created."
+    , taskUpdated = "Task updated."
+    , taskStarted = "Task started."
+    , taskDeleted = "Task deleted."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.SourceManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.SourceForm
 import Messages.Comp.SourceTable
 
@@ -9,6 +11,7 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , sourceTable : Messages.Comp.SourceTable.Texts
     , sourceForm : Messages.Comp.SourceForm.Texts
+    , httpError : Http.Error -> String
     , addSourceUrl : String
     , newSource : String
     , publicUploads : String
@@ -22,6 +25,7 @@ type alias Texts =
     , createNewSource : String
     , deleteThisSource : String
     , errorGeneratingQR : String
+    , correctFormErrors : String
     }
 
 
@@ -30,6 +34,7 @@ gb =
     { basics = Messages.Basics.gb
     , sourceTable = Messages.Comp.SourceTable.gb
     , sourceForm = Messages.Comp.SourceForm.gb
+    , httpError = Messages.Comp.HttpError.gb
     , addSourceUrl = "Add a source url"
     , newSource = "New source"
     , publicUploads = "Public Uploads"
@@ -50,4 +55,5 @@ gb =
     , createNewSource = "Create new source"
     , deleteThisSource = "Delete this source"
     , errorGeneratingQR = "Error generating QR Code"
+    , correctFormErrors = "Please correct the errors in the form."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.TagManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.TagForm
 import Messages.Comp.TagTable
 
@@ -9,10 +11,12 @@ type alias Texts =
     { basics : Messages.Basics.Texts
     , tagTable : Messages.Comp.TagTable.Texts
     , tagForm : Messages.Comp.TagForm.Texts
+    , httpError : Http.Error -> String
     , createNewTag : String
     , newTag : String
     , reallyDeleteTag : String
     , deleteThisTag : String
+    , correctFormErrors : String
     }
 
 
@@ -21,8 +25,10 @@ gb =
     { basics = Messages.Basics.gb
     , tagTable = Messages.Comp.TagTable.gb
     , tagForm = Messages.Comp.TagForm.gb
+    , httpError = Messages.Comp.HttpError.gb
     , createNewTag = "Create a new tag"
     , newTag = "New Tag"
     , reallyDeleteTag = "Really delete this tag?"
     , deleteThisTag = "Delete this tag"
+    , correctFormErrors = "Please correct the errors in the form."
     }

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

@@ -1,6 +1,8 @@
 module Messages.Comp.UserManage exposing (Texts, gb)
 
+import Http
 import Messages.Basics
+import Messages.Comp.HttpError
 import Messages.Comp.UserForm
 import Messages.Comp.UserTable
 
@@ -8,6 +10,7 @@ import Messages.Comp.UserTable
 type alias Texts =
     { userTable : Messages.Comp.UserTable.Texts
     , userForm : Messages.Comp.UserForm.Texts
+    , httpError : Http.Error -> String
     , users : String
     , newUser : String
     , addNewUser : String
@@ -24,6 +27,7 @@ gb =
     { userTable = Messages.Comp.UserTable.gb
     , userForm = Messages.Comp.UserForm.gb
     , basics = Messages.Basics.gb
+    , httpError = Messages.Comp.HttpError.gb
     , users = "Users"
     , newUser = "New user"
     , addNewUser = "Add new user"
@@ -32,8 +36,3 @@ gb =
     , deleteThisUser = "Delete this user"
     , pleaseCorrectErrors = "Please correct the errors in the form."
     }
-
-
-de : Texts
-de =
-    gb