diff options
Diffstat (limited to 'templates/inventoryListing.hamlet')
-rw-r--r-- | templates/inventoryListing.hamlet | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/templates/inventoryListing.hamlet b/templates/inventoryListing.hamlet index 775176d..3be43db 100644 --- a/templates/inventoryListing.hamlet +++ b/templates/inventoryListing.hamlet | |||
@@ -1,6 +1,7 @@ | |||
1 | <div .table> | 1 | <div .table> |
2 | <div .tr .sepBelow> | 2 | <div .tr .sepBelow> |
3 | <div .th>Item | 3 | <div .th>Item |
4 | <div .th>Type | ||
4 | <div .th>Bought | 5 | <div .th>Bought |
5 | <div .th>Expires | 6 | <div .th>Expires |
6 | <div .th>Opened | 7 | <div .th>Opened |
@@ -12,7 +13,7 @@ | |||
12 | <div .td> | 13 | <div .td> |
13 | <button type=submit> | 14 | <button type=submit> |
14 | Insert | 15 | Insert |
15 | $forall Entity itemId Item{..} <- stock | 16 | $forall WithType (Entity itemId Item{..}) itemType <- stock |
16 | $if Just itemId == (preview updateId =<< formState) | 17 | $if Just itemId == (preview updateId =<< formState) |
17 | $with Just UpdateForm{..} <- formState | 18 | $with Just UpdateForm{..} <- formState |
18 | <form .tr .color action=@{UpdateItemR fsUpdateId}##{toPathPiece fsUpdateId} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateId}> | 19 | <form .tr .color action=@{UpdateItemR fsUpdateId}##{toPathPiece fsUpdateId} method=post enctype=#{fsUpdateEncoding} ##{toPathPiece fsUpdateId}> |
@@ -23,6 +24,7 @@ | |||
23 | $else | 24 | $else |
24 | <div .tr .color ##{toPathPiece itemId}> | 25 | <div .tr .color ##{toPathPiece itemId}> |
25 | <div .kind>#{itemKind} | 26 | <div .kind>#{itemKind} |
27 | <div .type>#{itemType} | ||
26 | <div .td .day> | 28 | <div .td .day> |
27 | $maybe bought <- itemBought | 29 | $maybe bought <- itemBought |
28 | #{dayFormat bought} | 30 | #{dayFormat bought} |