Custom ticket fields specify whether required

config/models

@@ -168,6 +168,7 @@ WorkflowField
     name     Text
     desc     Text              Maybe
     type     WorkflowFieldType
+    required Bool
     -- filter   TicketStatusFilterId
 
     UniqueWorkflowField workflow ident

src/Vervis/Form/Workflow.hs

@@ -56,6 +56,7 @@ data NewField = NewField
     , nfName  :: Text
     , nfDesc  :: Maybe Text
     , nfType  :: WorkflowFieldType
+    , nfReq   :: Bool
     }
 
 newFieldAForm :: WorkflowId -> AForm Handler NewField
@@ -64,6 +65,7 @@ newFieldAForm wid = NewField
     <*> areq textField                 "Name*"       Nothing
     <*> aopt textField                 "Description" Nothing
     <*> areq (selectField optionsEnum) "Type*"       Nothing
+    <*> areq checkBoxField             "Required*"   Nothing
 
 newFieldForm :: WorkflowId -> Form NewField
 newFieldForm wid = renderDivs $ newFieldAForm wid

src/Vervis/Handler/Workflow.hs

@@ -149,6 +149,7 @@ postWorkflowFieldsR shr wfl = do
                     , workflowFieldName     = nfName nf
                     , workflowFieldDesc     = nfDesc nf
                     , workflowFieldType     = nfType nf
+                    , workflowFieldRequired = nfReq nf
                     }
             runDB $ insert_ field
             setMessage "Workflow field added."

templates/workflow/field/one.hamlet

@@ -24,3 +24,5 @@ $# <http://creativecommons.org/publicdomain/zero/1.0/>.
     Description: #{fromMaybe "(none)" $ workflowFieldDesc f}
   <li>
     Type: #{show $ workflowFieldType f}
+  <li>
+    Required: #{workflowFieldRequired f}