fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(workflows): explanation text

Browse Source
This commit is contained in:
Gregor Kleen 2020-12-10 18:42:01 +01:00
parent 16508803db
commit aba673756e
8 changed files with 50 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
frontend/src/app.sass
View File

@ -975,6 +975,9 @@ th, td
font-style: italic font-style: italic
@extend .note @extend .note
emph
font-style: normal
// SORTABLE TABLE-HEADERS // SORTABLE TABLE-HEADERS
.table__th.sortable .table__th.sortable
position: relative position: relative

5
src/Handler/Workflow/Instance/List.hs
View File

@ -169,6 +169,7 @@ workflowInstanceListR rScope = do
siteLayoutMsg heading $ do siteLayoutMsg heading $ do
setTitleI title setTitleI title
let mPitch = Just $(i18nWidgetFile "workflow-instance-list-explanation")
$(widgetFile "workflows/instances") $(widgetFile "workflows/instances")
where where
toInitiateRoute win = _WorkflowScopeRoute # (rScope, WorkflowInstanceR win WIInitiateR) toInitiateRoute win = _WorkflowScopeRoute # (rScope, WorkflowInstanceR win WIInitiateR)
@ -210,7 +211,11 @@ getTopWorkflowInstanceListR = do
toInitiateRoute = toInitiateRoute' rScope toInitiateRoute = toInitiateRoute' rScope
toEditRoute = toEditRoute' rScope toEditRoute = toEditRoute' rScope
toListRoute = toListRoute' rScope toListRoute = toListRoute' rScope
mPitch :: Maybe Widget
mPitch = Nothing
showHeadings = Map.keys gInstances /= [WSGlobal] showHeadings = Map.keys gInstances /= [WSGlobal]
pitch = $(i18nWidgetFile "workflow-instance-list-explanation")
$(widgetFile "workflows/top-instances") $(widgetFile "workflows/top-instances")
where where

3
src/Handler/Workflow/Workflow/List.hs
View File

@ -316,5 +316,4 @@ workflowWorkflowList (title, heading) WWListColumns{..} sqlPred = do
siteLayoutMsg heading $ do siteLayoutMsg heading $ do
setTitleI title setTitleI title
$(widgetFile "workflows/workflow-list")
workflowTable

8
templates/i18n/workflow-instance-list-explanation/de-de-formal.hamlet Normal file
View File

@ -0,0 +1,8 @@
$newline never
<p>
Bei Workflows handelt es sich um Modellierungen von verwaltungstechnischen Abläufen in Uni2work.
<p>
Unten aufgelistet sehen sie diejenigen <emph>Workflow-Instanzen</emph>, also einem konkreten Bereich (z.B. einem Semester oder einem Institut) zugeordnete Sorten von Abläufen, mit denen Sie aktuell interagieren können.
<p>
Mit „Workflow starten“ können Sie, sofern Sie die nötigen Berechtigungen haben, einen neuen Ablauf starten. #
Abläufe, bei denen Sie beteiligt sind, finden Sie unter „Laufende Workflows“.

8
templates/i18n/workflow-instance-list-explanation/en-eu.hamlet Normal file
View File

@ -0,0 +1,8 @@
$newline never
<p>
Workflows are a method of modelling administrative processes within Uni2work.
<p>
Listed below are those <emph>Workflow instances</emph>, i.e. types of processes assigned to concrete scopes (e.g. a term or school), with which you may currently interact.
<p>
Using “Start workflow” you can, if you have the neccessary permissions, initiate a new process. #
Under “Running workflows” you will find those processes with which you are associated.

36
templates/workflows/instances.hamlet
View File

@ -1,19 +1,23 @@
$newline never $newline never
<ul .workflow-instances> $maybe pitch <- mPitch
$forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc) <- instances <section .explanation>
<li> ^{pitch}
$maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc <section>
<p .workflow-instance--title> <ul .workflow-instances>
#{workflowInstanceDescriptionTitle} $forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc) <- instances
$nothing <li>
<p .workflow-instance--name> $maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc
#{workflowInstanceName} <p .workflow-instance--title>
#{workflowInstanceDescriptionTitle}
$nothing
<p .workflow-instance--name>
#{workflowInstanceName}
<div .workflow-instance--actions .buttongroup> <div .workflow-instance--actions .buttongroup>
^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName} ^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName}
^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName} ^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName}
^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName} ^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName}
$maybe desc <- workflowInstanceDescriptionDescription =<< mDesc $maybe desc <- workflowInstanceDescriptionDescription =<< mDesc
<div .workflow-instance--description> <div .workflow-instance--description>
#{desc} #{desc}

2
templates/workflows/top-instances.hamlet
View File

@ -1,4 +1,6 @@
$newline never $newline never
<section .explanation>
^{pitch}
$forall (rScope, instances) <- Map.toList gInstances $forall (rScope, instances) <- Map.toList gInstances
<section> <section>
$if showHeadings $if showHeadings

3
templates/workflows/workflow-list.hamlet Normal file
View File

@ -0,0 +1,3 @@
$newline never
<section>
^{workflowTable}