diff --git a/Handler/Restock.hs b/Handler/Restock.hs index e583f55..e375638 100644 --- a/Handler/Restock.hs +++ b/Handler/Restock.hs @@ -36,7 +36,7 @@ getUpstockR bId = do $(widgetFile "upstock") Nothing -> do setMessageI MsgItemUnknown - redirect HomeR + redirect RestockR postUpstockR :: BeverageId -> Handler Html postUpstockR bId = do @@ -51,7 +51,7 @@ postUpstockR bId = do then do runDB $ update bId [BeverageAmount +=. c] setMessageI MsgStockedUp - redirect HomeR + redirect RestockR else do setMessageI MsgNotStockedUp redirect $ UpstockR bId @@ -61,7 +61,7 @@ postUpstockR bId = do redirect $ UpstockR bId Nothing -> do setMessageI MsgItemUnknown - redirect HomeR + redirect RestockR upstockForm :: AForm Handler Int upstockForm = areq amountField (bfs MsgAmountAdded) (Just 1) @@ -82,10 +82,10 @@ postNewArticleR = do FormSuccess bev -> do runDB $ insert_ bev setMessageI MsgItemAdded - redirect HomeR + redirect RestockR _ -> do setMessageI MsgItemNotAdded - redirect HomeR + redirect RestockR 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) diff --git a/messages/cz.msg b/messages/cz.msg index 479f29a..c02c9d8 100644 --- a/messages/cz.msg +++ b/messages/cz.msg @@ -31,7 +31,8 @@ Description: Popis StockedUp: Nabral jsem zásoby NotStockedUp: Nemohl jsem nabrat zásoby 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 ItemNotAdded: Chyba při přidávání AmountWarning: Výstraha počtu diff --git a/messages/de.msg b/messages/de.msg index 52207cb..4574002 100644 --- a/messages/de.msg +++ b/messages/de.msg @@ -31,7 +31,8 @@ Description: Beschreibung StockedUp: Bestand aufgefüllt NotStockedUp: Bestand kann nicht negativ aufgefüllt werden 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 ItemNotAdded: Fehler beim Hinzufügen AmountWarning: Warnung bei Anzahl diff --git a/messages/en.msg b/messages/en.msg index dbe2bb5..cc34c7e 100644 --- a/messages/en.msg +++ b/messages/en.msg @@ -31,7 +31,8 @@ Description: Description StockedUp: Stocked up NotStockedUp: Could not stock up StockupError: Error stocking up -AmountAdded: Amount added +AmountAdded: Amount of single items added +CrateAmountAdded: Amount of crates added ItemAdded: New item added ItemNotAdded: Error when adding AmountWarning: Amount warning