31 lines
1.2 KiB
Plaintext
31 lines
1.2 KiB
Plaintext
$newline never
|
|
|
|
$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>
|
|
$#
|
|
$# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
$maybe pitch <- mPitch
|
|
<section .explanation>
|
|
^{pitch}
|
|
<section>
|
|
<ul .workflow-instances>
|
|
$forall (Entity _ WorkflowInstance{workflowInstanceName}, mDesc, canUpdate) <- instances
|
|
<li>
|
|
$maybe WorkflowInstanceDescription{workflowInstanceDescriptionTitle} <- mDesc
|
|
<p .workflow-instance--title>
|
|
#{workflowInstanceDescriptionTitle}
|
|
$nothing
|
|
<p .workflow-instance--name>
|
|
#{workflowInstanceName}
|
|
|
|
<div .workflow-instance--actions .buttongroup>
|
|
^{linkButton mempty (i18n MsgMenuWorkflowInstanceWorkflows) [BCIsButton, BCPrimary] $ SomeRoute $ toListRoute workflowInstanceName}
|
|
^{linkButton mempty (i18n MsgMenuWorkflowInstanceInitiate) [BCIsButton] $ SomeRoute $ toInitiateRoute workflowInstanceName}
|
|
^{linkButton mempty (i18n MsgMenuWorkflowInstanceEdit) [BCIsButton] $ SomeRoute $ toEditRoute workflowInstanceName}
|
|
$if canUpdate
|
|
^{updateForm workflowInstanceName}
|
|
|
|
$maybe desc <- workflowInstanceDescriptionDescription =<< mDesc
|
|
<div .workflow-instance--description>
|
|
#{desc}
|