nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

sending users to restock menu instead of home after completed actions

Browse source
This commit is contained in:
nek0 2016-01-30 18:36:03 +01:00
parent 74407b1c75
commit f1806a4dfb
4 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Handler/Restock.hs
View file

@ -36,7 +36,7 @@ getUpstockR bId = do
$(widgetFile "upstock") $(widgetFile "upstock")
Nothing -> do Nothing -> do
setMessageI MsgItemUnknown setMessageI MsgItemUnknown
redirect HomeR redirect RestockR
postUpstockR :: BeverageId -> Handler Html postUpstockR :: BeverageId -> Handler Html
postUpstockR bId = do postUpstockR bId = do
@ -51,7 +51,7 @@ postUpstockR bId = do
then do then do
runDB $ update bId [BeverageAmount +=. c] runDB $ update bId [BeverageAmount +=. c]
setMessageI MsgStockedUp setMessageI MsgStockedUp
redirect HomeR redirect RestockR
else do else do
setMessageI MsgNotStockedUp setMessageI MsgNotStockedUp
redirect $ UpstockR bId redirect $ UpstockR bId
@ -61,7 +61,7 @@ postUpstockR bId = do
redirect $ UpstockR bId redirect $ UpstockR bId
Nothing -> do Nothing -> do
setMessageI MsgItemUnknown setMessageI MsgItemUnknown
redirect HomeR redirect RestockR
upstockForm :: AForm Handler Int upstockForm :: AForm Handler Int
upstockForm = areq amountField (bfs MsgAmountAdded) (Just 1) upstockForm = areq amountField (bfs MsgAmountAdded) (Just 1)
@ -82,10 +82,10 @@ postNewArticleR = do
FormSuccess bev -> do FormSuccess bev -> do
runDB $ insert_ bev runDB $ insert_ bev
setMessageI MsgItemAdded setMessageI MsgItemAdded
redirect HomeR redirect RestockR
_ -> do _ -> do
setMessageI MsgItemNotAdded setMessageI MsgItemNotAdded
redirect HomeR redirect RestockR
newArticleForm :: AForm Handler Beverage newArticleForm :: AForm Handler Beverage
newArticleForm = (\a b c d e f g h i j k l -> Beverage a b c d e i j k f g l h) newArticleForm = (\a b c d e f g h i j k l -> Beverage a b c d e i j k f g l h)

3
messages/cz.msg
View file

@ -31,7 +31,8 @@ Description: Popis
StockedUp: Nabral jsem zásoby StockedUp: Nabral jsem zásoby
NotStockedUp: Nemohl jsem nabrat zásoby NotStockedUp: Nemohl jsem nabrat zásoby
StockupError: Chyba při nabírání zásob StockupError: Chyba při nabírání zásob
AmountAdded: Množství přidáno AmountAdded: Množství jednotlivích přidáno
CrateAmountAdded: Množství přepravek přidáno
ItemAdded: Nový zboží přidáno ItemAdded: Nový zboží přidáno
ItemNotAdded: Chyba při přidávání ItemNotAdded: Chyba při přidávání
AmountWarning: Výstraha počtu AmountWarning: Výstraha počtu

3
messages/de.msg
View file

@ -31,7 +31,8 @@ Description: Beschreibung
StockedUp: Bestand aufgefüllt StockedUp: Bestand aufgefüllt
NotStockedUp: Bestand kann nicht negativ aufgefüllt werden NotStockedUp: Bestand kann nicht negativ aufgefüllt werden
StockupError: Fehler beim Auffüllen StockupError: Fehler beim Auffüllen
AmountAdded: Anzahl hinzugefügt AmountAdded: Anzahl Einzelteile hinzugefügt
CrateAmountAdded: Anzahl Kästen hinzugefügt
ItemAdded: Neuer Artikel hinzugefügt ItemAdded: Neuer Artikel hinzugefügt
ItemNotAdded: Fehler beim Hinzufügen ItemNotAdded: Fehler beim Hinzufügen
AmountWarning: Warnung bei Anzahl AmountWarning: Warnung bei Anzahl

3
messages/en.msg
View file

@ -31,7 +31,8 @@ Description: Description
StockedUp: Stocked up StockedUp: Stocked up
NotStockedUp: Could not stock up NotStockedUp: Could not stock up
StockupError: Error stocking up StockupError: Error stocking up
AmountAdded: Amount added AmountAdded: Amount of single items added
CrateAmountAdded: Amount of crates added
ItemAdded: New item added ItemAdded: New item added
ItemNotAdded: Error when adding ItemNotAdded: Error when adding
AmountWarning: Amount warning AmountWarning: Amount warning