From 0242b31e224f7f0b2e18d820cd96c191ccf8a2e5 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 10 Apr 2015 18:19:48 +0200 Subject: [PATCH] cashiers should know, when they were created --- Handler/CashCheck.hs | 3 ++- Handler/Common.hs | 3 ++- config/models | 1 + 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Handler/CashCheck.hs b/Handler/CashCheck.hs index 10faa62..a40e892 100644 --- a/Handler/CashCheck.hs +++ b/Handler/CashCheck.hs @@ -14,8 +14,9 @@ postCashCheckR = do ((res, _), _) <- runFormPost createCashCheckForm case res of FormSuccess c -> do + currentTime <- liftIO getCurrentTime runDB $ insert_ c - runDB $ insert_ $ Cashier (cashCheckBalance c) + runDB $ insert_ $ Cashier (cashCheckBalance c) currentTime setMessage "Kassensturz durchgeführt. Kasse aktualisiert" redirect $ HomeR _ -> do diff --git a/Handler/Common.hs b/Handler/Common.hs index e18156f..6deb05d 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -33,7 +33,8 @@ updateCashier amount desc = do runDB $ update (entityKey entCash) [CashierBalance +=. amount] runDB $ insert_ trans Nothing -> do - runDB $ insert_ $ Cashier amount + currentTime <- liftIO getCurrentTime + runDB $ insert_ $ Cashier amount currentTime runDB $ insert_ trans getCashierBalance :: Handler Int diff --git a/config/models b/config/models index 4ed043b..3e9291f 100644 --- a/config/models +++ b/config/models @@ -19,6 +19,7 @@ Transaction deriving Typeable Show Cashier balance Int + created UTCTime deriving Typeable Show CashCheck balance Int