From b1e108d2578e09c2c5bdd30d80140bbf28680771 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 5 Apr 2015 11:05:35 +0200
Subject: [PATCH] articel amounts can no longer be negative

---
 Handler/Buy.hs | 52 ++++++++++++++++++++++++++++++--------------------
 1 file changed, 31 insertions(+), 21 deletions(-)

diff --git a/Handler/Buy.hs b/Handler/Buy.hs
index 67a6667..32aa450 100644
--- a/Handler/Buy.hs
+++ b/Handler/Buy.hs
@@ -26,18 +26,23 @@ postBuyR uId bId = do
       ((res, _), _) <- runFormPost buyForm
       case res of
         FormSuccess quant -> do
-          price <- return $ quant * (beveragePrice bev)
-          sw <- return $ price > (userBalance user)
-          runDB $ update uId [UserBalance -=. price]
-          runDB $ update bId [BeverageAmount -=. quant]
-          checkAlert bId
-          case sw of
+          case quant > beverageAmount bev of
             False -> do
-              setMessage "Viel Vergnügen"
-              redirect $ HomeR
+              price <- return $ quant * (beveragePrice bev)
+              sw <- return $ price > (userBalance user)
+              runDB $ update uId [UserBalance -=. price]
+              runDB $ update bId [BeverageAmount -=. quant]
+              checkAlert bId
+              case sw of
+                False -> do
+                  setMessage "Viel Vergnügen"
+                  redirect $ HomeR
+                True -> do
+                  setMessage "Achtung: Guthaben im negativen Bereich"
+                  redirect $ HomeR
             True -> do
-              setMessage "Achtung: Guthaben im negativen Bereich"
-              redirect $ HomeR
+              setMessage "So viele Artikel sind nicht vorhanden"
+              redirect $ BuyR uId bId
         _ -> do
           setMessage "Etwas ist schief gelaufen"
           redirect $ HomeR
@@ -66,17 +71,22 @@ postBuyCashR bId = do
       ((res, _), _) <- runFormPost buyForm
       case res of
         FormSuccess quant -> do
-          master <- getYesod
-          price <- return $ quant * (beveragePrice bev + 50)
-          runDB $ update bId [BeverageAmount -=. quant]
-          updateCashier price "Barzahlung"
-          checkAlert bId
-          setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle "
-            `T.append` (T.pack $ show ((fromIntegral price) / 100))
-            `T.append` " "
-            `T.append` (appCurrency $ appSettings master)
-            `T.append` " in die Kasse ein"
-          redirect $ HomeR
+          case quant > beverageAmount bev of
+            False -> do
+              master <- getYesod
+              price <- return $ quant * (beveragePrice bev + 50)
+              runDB $ update bId [BeverageAmount -=. quant]
+              updateCashier price "Barzahlung"
+              checkAlert bId
+              setMessage $ Content $ Text $ "Viel Vergnügen. Bitte Zahle "
+                `T.append` (T.pack $ show ((fromIntegral price) / 100))
+                `T.append` " "
+                `T.append` (appCurrency $ appSettings master)
+                `T.append` " in die Kasse ein"
+              redirect $ HomeR
+            True -> do
+              setMessage "So viele Artikel sind nicht vorhanden"
+              redirect $ BuyCashR bId
         _ -> do
           setMessage "Etwas ist schief gelaufen"
           redirect $ HomeR