68 lines
2 KiB
Haskell
68 lines
2 KiB
Haskell
module Handler.Select where
|
|
|
|
import Import
|
|
import Handler.Common
|
|
import qualified Text.Read as R
|
|
import qualified Data.Text as T
|
|
|
|
getSelectR :: UserId -> Handler Html
|
|
getSelectR uId = do
|
|
mUser <- runDB $ get uId
|
|
case mUser of
|
|
Just user -> do
|
|
master <- getYesod
|
|
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
|
|
defaultLayout $ do
|
|
$(widgetFile "select")
|
|
Nothing -> do
|
|
setMessageI MsgUserUnknown
|
|
redirect $ HomeR
|
|
|
|
getSelectCashR :: Handler Html
|
|
getSelectCashR = do
|
|
beverages <- runDB $ selectList [BeverageAmount >. 0] [Asc BeverageIdent]
|
|
defaultLayout $ do
|
|
$(widgetFile "selectCash")
|
|
|
|
getRechargeR :: UserId -> Handler Html
|
|
getRechargeR uId = do
|
|
mUser <- runDB $ get uId
|
|
case mUser of
|
|
Just user -> do
|
|
(rechargeWidget, enctype) <- generateFormPost rechargeForm
|
|
currency <- appCurrency <$> appSettings <$> getYesod
|
|
defaultLayout $ do
|
|
$(widgetFile "recharge")
|
|
Nothing -> do
|
|
setMessageI MsgUserUnknown
|
|
redirect $ HomeR
|
|
|
|
postRechargeR :: UserId -> Handler Html
|
|
postRechargeR uId = do
|
|
mUser <- runDB $ get uId
|
|
case mUser of
|
|
Just user -> do
|
|
((res, _), _) <- runFormPost rechargeForm
|
|
case res of
|
|
FormSuccess amount -> do
|
|
case amount < 0 of
|
|
False -> do
|
|
updateCashier amount ("Guthaben: " `T.append` (userIdent user))
|
|
time <- liftIO getCurrentTime
|
|
secs <- return $ R.read $ formatTime defaultTimeLocale "%s" time
|
|
runDB $ update uId [UserBalance +=. amount, UserTimestamp =. secs]
|
|
setMessageI MsgRecharged
|
|
redirect $ HomeR
|
|
True -> do
|
|
setMessageI MsgNegativeRecharge
|
|
redirect $ RechargeR uId
|
|
_ -> do
|
|
setMessageI MsgRechargeError
|
|
redirect $ HomeR
|
|
Nothing -> do
|
|
setMessageI MsgUserUnknown
|
|
redirect $ HomeR
|
|
|
|
rechargeForm :: Form Int
|
|
rechargeForm = renderDivs
|
|
$ areq currencyField (fieldSettingsLabel MsgValue) (Just 0)
|