diff options
Diffstat (limited to 'Handler')
-rw-r--r-- | Handler/Common.hs | 2 | ||||
-rw-r--r-- | Handler/Item.hs | 1 | ||||
-rw-r--r-- | Handler/UpdateItem.hs | 1 |
3 files changed, 3 insertions, 1 deletions
diff --git a/Handler/Common.hs b/Handler/Common.hs index 799f692..4f02e3c 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs | |||
@@ -91,7 +91,7 @@ itemForm proto identView = do | |||
91 | <div .td>^{openedWidget} | 91 | <div .td>^{openedWidget} |
92 | <div .td> | 92 | <div .td> |
93 | <ul .status> | 93 | <ul .status> |
94 | <li>^{fvInput runningLowWidget} # | 94 | <li>^{fvInput runningLowWidget} |
95 | <label for=#{fvId runningLowWidget}> | 95 | <label for=#{fvId runningLowWidget}> |
96 | Running low | 96 | Running low |
97 | |] | 97 | |] |
diff --git a/Handler/Item.hs b/Handler/Item.hs index abb1b12..2530275 100644 --- a/Handler/Item.hs +++ b/Handler/Item.hs | |||
@@ -18,6 +18,7 @@ putItemR itemId = do | |||
18 | , ItemBought =. itemBought | 18 | , ItemBought =. itemBought |
19 | , ItemExpires =. itemExpires | 19 | , ItemExpires =. itemExpires |
20 | , ItemOpened =. itemOpened | 20 | , ItemOpened =. itemOpened |
21 | , ItemRunningLow =. itemRunningLow | ||
21 | ]) | 22 | ]) |
22 | update (itemFkType $ entityVal entity) [ KindType =. t ] | 23 | update (itemFkType $ entityVal entity) [ KindType =. t ] |
23 | withType entity | 24 | withType entity |
diff --git a/Handler/UpdateItem.hs b/Handler/UpdateItem.hs index b4c8713..ce6b30d 100644 --- a/Handler/UpdateItem.hs +++ b/Handler/UpdateItem.hs | |||
@@ -19,6 +19,7 @@ postUpdateItemR fsUpdateId = do | |||
19 | , ItemBought =. itemBought | 19 | , ItemBought =. itemBought |
20 | , ItemExpires =. itemExpires | 20 | , ItemExpires =. itemExpires |
21 | , ItemOpened =. itemOpened | 21 | , ItemOpened =. itemOpened |
22 | , ItemRunningLow =. itemRunningLow | ||
22 | ] | 23 | ] |
23 | return () | 24 | return () |
24 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors | 25 | FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors |