diff --git a/src/Handler/Info.hs b/src/Handler/Info.hs
index eac3e22dc..170a156f7 100644
--- a/src/Handler/Info.hs
+++ b/src/Handler/Info.hs
@@ -42,11 +42,13 @@ getLegalR =
-- | Allgemeine Informationen
getInfoR :: Handler Html
getInfoR = do
+ AppSettings{..} <- getsYesod appSettings'
changelogEntries' <- runDB $ selectList [ ChangelogItemFirstSeenItem <-. universeF ] []
let changelogEntries = Map.fromListWith Set.union
[ (Down changelogItemFirstSeenFirstSeen, Set.singleton changelogItemFirstSeenItem)
| Entity _ ChangelogItemFirstSeen{..} <- changelogEntries'
]
+ changelogItems = $(i18nWidgetFiles "changelog")
siteLayoutMsg MsgInfoHeading $ do
setTitleI MsgInfoHeading
@@ -58,9 +60,6 @@ getInfoR = do
gitInfo = $gitDescribe <> " (" <> $gitCommitDate <> ")"
$(widgetFile "versionHistory")
- where
- changelogItems = $(i18nWidgetFiles "changelog")
-
getGlossaryR :: Handler Html
getGlossaryR =
diff --git a/templates/i18n/changelog/workflows-archivation.de-de-formal.hamlet b/templates/i18n/changelog/workflows-archivation.de-de-formal.hamlet
new file mode 100644
index 000000000..c775ce108
--- /dev/null
+++ b/templates/i18n/changelog/workflows-archivation.de-de-formal.hamlet
@@ -0,0 +1,11 @@
+$newline never
+
+$maybe archived <- appWorkflowWorkflowArchiveAfter
+ Workflows werden nun automatisch archiviert, sobald sie #
+ $if archived /= 0
+ seit #{tshow (nominalDiffTimeToSeconds archived / 86400)} Tagen #
+ abgeschlossen sind.
+$nothing
+ Workflows können nun archiviert werden.
+
+Archivierte Workflows werden nicht mehr in der Liste laufender Workflows angezeigt, sondern sind über ein separates Archiv verfügbar.
diff --git a/templates/i18n/changelog/workflows-archivation.en-eu.hamlet b/templates/i18n/changelog/workflows-archivation.en-eu.hamlet
new file mode 100644
index 000000000..1a1fd4e70
--- /dev/null
+++ b/templates/i18n/changelog/workflows-archivation.en-eu.hamlet
@@ -0,0 +1,13 @@
+$newline never
+
+$maybe archived <- appWorkflowWorkflowArchiveAfter
+ Workflows are now being archived automatically #
+ $if archived == 0
+ immediately #
+ $else
+ #{tshow (nominalDiffTimeToSeconds archived / 86400)} days #
+ after finalization.
+$nothing
+ Workflow may now be archived.
+
+Archived workflows are not shown among the list of running workflows, but can instead be accessed via a separate archive list.