blob: a69ef1d98ecfdf6cdaa77beb1d728195c0ea1b1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
<div .table .main>
<div .tr .sepBelow>
<div .td>Item
<div .td>Type
$forall WithType item itemType <- Set.toAscList list
<div .tr .color>
<div .td .kind>#{item}
<div .td .type>#{itemType}
<form method=post enctype=#{nDraftEnc} .sepAbove .tr>
<div .td>
^{nDraftView}
<div .td>
<button type=submit :Set.null list:disabled>
Save
$if not (null drafts')
<form method=post enctype=#{oDraftEnc} .tr>
<div .td>
^{oDraftView}
<div .td>
<button type=submit :Set.null list:disabled>
Append
$if not (null printers')
<form method=post enctype=#{printEnc} .tr>
<div .td>
^{printView}
<div .td>
<button type=submit :Set.null list:disabled>
Print
|
