mirror of
https://code.sup39.dev/repos/Wqawg
synced 2024-12-29 02:34:51 +09:00
f4a5866dec
- WorkflowField now has a color, it's a simple `Maybe Int` for now. Valid values are only 1-4 - That color is used for displaying ticket class params a.k.a labels in ticket list view - Ticket list now also serves a paged OrderedCollection I tried to use a single SQL query to grab the tickets along with their labels, but couldn't figure out a way to aggregate tuples/rows into an array (it seems only single values are supported in Esqueleto). Instead of doing manual SQL or adding Esqueleto functions, I just switched from 1 query to O(n) queries: Each ticket has its own query selecting its labels. I guess it's slower, but also, ticket list is paged now with fixed page size so it's really O(1) ^_^
46 lines
1.3 KiB
Text
46 lines
1.3 KiB
Text
$# This file is part of Vervis.
|
|
$#
|
|
$# Written in 2016, 2018, 2020 by fr33domlover <fr33domlover@riseup.net>.
|
|
$#
|
|
$# ♡ Copying is an act of love. Please copy, reuse and share.
|
|
$#
|
|
$# The author(s) have dedicated all copyright and related and neighboring
|
|
$# rights to this software to the public domain worldwide. This software is
|
|
$# distributed without any warranty.
|
|
$#
|
|
$# You should have received a copy of the CC0 Public Domain Dedication along
|
|
$# with this software. If not, see
|
|
$# <http://creativecommons.org/publicdomain/zero/1.0/>.
|
|
|
|
<p>
|
|
^{buttonW DELETE "Delete this field" (WorkflowFieldR shr wfl fld)}
|
|
|
|
<ul>
|
|
<li>
|
|
Display name: #{workflowFieldName f}
|
|
<li>
|
|
Description: #{fromMaybe "(none)" $ workflowFieldDesc f}
|
|
<li>
|
|
Type:
|
|
$case e
|
|
$of Left typ
|
|
#{show typ}
|
|
$of Right enum
|
|
<a href=@{WorkflowEnumR shr wfl $ workflowEnumIdent enum}>
|
|
#{workflowEnumName enum}
|
|
<li>
|
|
Required: #{workflowFieldRequired f}
|
|
<li>
|
|
Constant: #{workflowFieldConstant f}
|
|
<li>
|
|
Applies to New tickets: #{workflowFieldFilterNew f}
|
|
<li>
|
|
Applies to Todo tickets: #{workflowFieldFilterTodo f}
|
|
<li>
|
|
Applies to Closed tickets: #{workflowFieldFilterClosed f}
|
|
<li>
|
|
Color:
|
|
$maybe c <- workflowFieldColor f
|
|
#{c}
|
|
$nothing
|
|
None
|