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.